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ABSTRACT 


Modem  digital  communication  techniques  often  require  the  generation  of  pseudorandom 
numbers  or  sequences.  The  ability  to  quickly  and  easily  produce  various  codes  such  as  maximal 
length  codes,  Gold  codes.  Jet  Propulsion  Laboratory  ranging  codes,  syncopated  codes,  and  non¬ 
linear  codes  in  a  laboratory  environment  is  essential.  This  thesis  addresses  the  issue  of  providing 
automated  computer  control  to  previously  built,  manually  controlled  hardware  incorporating  the 
Stanford  Telecom  STEL-1032  Pseudo-Random  Number  (PRN)  Coder.  By  incorporating  a 
microcontroller  into  existing  hardware,  the  STEL-1032  can  now  be  conveniently  controlled  from 
a  MATLAB®  Graphical  User  Interface  (GUI).  The  user  can  quickly  create,  save,  and  recall 
various  setups  for  the  STEL-1032  in  an  easy  to  use  GUI  environment.  In  addition  to  having 
complete  control  of  the  STEL-1032’s  internal  actions,  the  microcontroller  adds  an  extra  measure 
of  control  possibilities  by  using  various  signals  as  possible  inteirupt  sources.  The  microcontroller 
can  sample  the  STEL-1032’s  various  outputs  at  a  rate  up  to  320  kHz  and  the  data  can  be  imported 
directly  into  MATLAB®  for  further  analysis. 
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GRAPHICAL  USER  INTERFACE  AND  MICROPROCESSOR 


CONTROL  ENHANCEMENT  OF  A  PSEUDORANDOM  CODE 

GENERATOR 

CHAPTER  1  INTRODUCTION 


1.1  Background 

From  research  efforts  during  World  War  II  sprang  the  concept  of  Spread  Spectrum  (SS) 
communications.  Early  systems  used  a  Transmitted  Reference  (TR)  spreading  signal,  meaning 
that  the  spreading  signal  was  actually  transmitted  “openly”  on  a  channel  separate  from  the  data 
channel.  While  this  meant  that  the  spreading  signal  could  be  tmly  random,  it  was  not  the  most 
secure  technique.  A  TR  system  also  requires  twice  the  bandwidth  and  transmitting  power  [1], 

A  move  was  made  to  using  a  Stored  Reference  (SR)  system  in  which  the  spreading  code 
is  generated  in  both  the  receiver  and  the  transmitter  but  never  actually  transmitted.  By  use  of 
synchronization  methods,  the  receiver  code  generator  is  matched  to  the  received  signal.  Thus,  the 
data  can  be  properly  de-spread  [1]. 

Most  modem  communication,  navigation,  and  radar  systems  use  a  SR  spread  spectmm 
technique  for  the  generation  and  transmission  of  signals.  The  spreading  code  is  often  a 
pseudorandom  code  produced  by  means  of  one  or  a  combination  of  several  Linear  Feedback  Shift 
Registers  (LFSR).  By  using  various  configurations,  an  LFSR  can  generate  a  plethora  of  binary 
sequences  such  as  maximal  length,  non-linear.  Gold,  and  Jet  Propulsion  Laboratory  (JPL)  ranging 
codes. 

Each  of  these  code  types  provide  certain  useful  characteristics.  For  example.  Gold  codes 
are  useful  for  multiple-access  applications.  JPL  ranging  codes  provide  very  long  sequences  for 
attaining  unmistakable  ranging  over  long  distances.  Non-linear  codes  provide  the  most  security. 
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1.2  Problem  Statement 


Modem  communication  and  navigation  systems  use  pseudorandom  codes  for  the  transfer 
of  information.  This  research  focused  on  designing  and  building  a  system,  including  software 
and  hardware,  capable  of  quickly,  easily,  and  repeatedly  producing  various  pseudorandom  codes. 
Adding  a  system  capable  of  giving  such  ease  and  versatility  of  control  to  the  existing  hardware 
built  by  Brendle  [2]  was  a  goal  of  this  thesis. 

1.3  Assumptions 

This  work  assumes  that  the  existing  hardware  would  be  used  as  the  base  upon  which  to 
build  the  new  control  system.  The  assumption  was  also  made  that  all-out  speed  was  not  the 
ultimate  goal.  Instead,  the  ability  to  demonstrate  automated  control  of  the  Stanford  Telecom 
STEL-1032  Pseudo-Random  Number  (PRN)  Coder  was  desired. 

1.4  Scope 

While  this  system  has  some  incredible  code  generation  capabilities,  limitations  on  the 
codes  tested  had  to  be  enforced  due  to  time  constraints.  The  ability  to  generate  various  codes  was 
demonstrated,  but  further  evaluation  of  those  codes  was  not  carried  out.  Chapter  4  presents 
several  test  codes  and  system  timing  capability  test  results. 

1.5  Approach 

After  reviewing  several  options,  such  as  using  a  digital  input/output  card  or  the  Personal 
Computer  (PC)  parallel  port,  a  design  specification  was  established.  A  microcontroller  was 
chosen  to  command  the  Stanford  Telecom  STEL-1032.  The  microcontroller  serves  as  the  link 
between  the  Stanford  Telecom  STEL-1032  and  the  PC  Graphical  User  Interface  (GUI). 
MATLAB®  Version  5.1  was  chosen  as  the  GUI  development  platform  to  provide  for  easy 
analysis  of  collected  data. 
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1.6  Materials  and  Equipment 

The  software  for  the  GUI  and  communications  with  the  microcontroller  were  developed 
in  MATLAB®  Version  5.1,  from  The  Mathworks  Inc.,  Natick,  MA.  The  microcontroller  code 
was  first  written  in  C  using  the  READS  166  v3.0  development  environment  from  Rigel 
Corporation,  Gainsville,  FL.  The  microcontroller,  model  RMB-166  vl.l,  is  also  from  Rigel 
Corporation  and  has  256  kbytes  of  onboard  RAM.  Several  small  parts  were  supplied  by  the  Air 
Force  Research  Laboratory  Sensors  Directorate.  Of  course,  the  Stanford  Telecom  STEL-1032 
PRN  Coder  was  also  used. 

1.7  Thesis  Organization 

Chapter  2  presents  background  information  on  linear  feedback  shift  registers, 
pseudorandom  noise  sequences,  the  manual  control  designed  and  built  by  Brendle,  the  concept  of 
a  microcontroller,  and  the  concept  of  the  Graphical  User  Interface.  Chapter  3  gives  an  overview 
of  the  Stanford  Telecom  STEL-1032,  proposes  some  possible  metrics  for  evaluating  the 
performance  of  the  system,  explains  the  coding  philosophy  used  to  develop  this  software, 
presents  a  top  level  view  of  the  software’s  function,  and  describes  the  hardware  development. 
Chapter  4  presents  system  performance  test  results  such  as  the  maximum  data  sample  rate  and 
interrupt  service  response  time.  Conclusions  and  recommendations  on  future  development  are 
given  in  Chapter  5.  Appendices  B,  C,  and  D  list  the  code  developed  for  this  thesis.  Finally, 
Appendix  E  is  a  short  User’s  Manual  to  help  the  user  get  started. 
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CHAPTER  2 


THEORY 


2.1  Introduction 

This  chapter  provides  an  overview  of  linear  feedback  shift  registers,  some  of  the  various 
codes  used  in  Spread  Spectrum  (SS)  communications,  the  manual  control  previously  available, 
and  introduces  the  microcontroller  and  Graphical  User  Interface  (GUI)  concepts. 

2.2  Linear  Feedback  Shift  Registers 

Linear  Feedback  Shift  Registers  (LFSR)  are  an  effective  way  of  producing  a  myriad  of 
binary  sequences.  LFSRs  consist  of  shift  registers  and  modulo-2  addition  units.  With  each  clock 
cycle,  the  register  contents  are  shifted  towards  the  output  end  and  the  new  “input”  bit  value  is 
dictated  by  the  tap  connections  to  the  modulo-2  adder  and  the  contents  of  the  associated  registers. 
Figure  2-1  shows  an  example  LFSR. 


G  =  1  +  X*  + 

Figure  2-1  Example  of  Linear  Feedback  Shift  Register  [1]. 


The  generator  polynomial,  G  =  1+  ■¥  X^,  indicates  that  taps  are  connected  from 

stages  Xs  and  X4  to  the  modulo-two  adder.  The  state  of  the  register  is  defined  as  the  current 
contents  of  the  shift  registers.  For  example,  if  we  initially  filled  X;  with  a  one  and  X2  through  X4 
with  zeros,  the  state  would  be  1  0  0  0.  Based  on  the  generator  polynomial  and  fill  indicated 
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above,  the  states  of  this  LFSR  would  be  as  shown  in  Table  2-1,  below.  Notice  that  after  a 
prescribed  number  of  shifts  (15  in  this  case),  the  original  state  reappears  and  the  output  sequence 
starts  over. 


Table  2-1  States  and  Output  of  Example  LFSR. 


State 

X, 

X2 

X3 

X4 

Output 

0 

1 

0 

0 

0 

1 

0 

1 

0 

0 

0 

2 

0 

0 

1 

0 

0 

3 

1 

0 

0 

1 

0 

4 

1 

1 

0 

0 

1 

5 

0 

1 

1 

0 

0 

6 

1 

0 

1 

1 

0 

7 

0 

1 

0 

1 

1 

8 

1 

0 

1 

0 

1 

9 

1 

1 

0 

1 

0 

10 

1 

1 

1 

0 

1 

11 

1 

1 

1 

1 

0 

12 

0 

1 

1 

1 

1 

13 

0 

0 

1 

1 

1 

14 

0 

0 

0 

1 

1 

15 

1 

0 

0 

0 

1 

2.3  Pseudorandom  Codes 

The  three  main  categories  of  pseudorandom  codes  are  maximal  length,  composite,  and 
non-linear.  This  section  briefly  describes  each  category  and  gives  some  typical  examples  of 
each.  But  first,  a  quick  look  at  the  properties  of  a  pseudorandom  code. 

In  order  to  have  statistical  properties  as  near  to  a  truly  random  signal  as  possible,  a 
pseudorandom  code  must  meet  three  basic  properties.  The  first  property,  balance,  dictates  that 
the  number  of  ones  contained  in  one  period  of  the  sequence  should  differ  from  the  number  of 
zeros  by  a  maximum  of  one.  The  second  property,  run,  states  that  the  number  of  single  one  or 
zero  runs  (a  run  is  defined  as  a  subsequence  of  like  symbols  [3])  should  be  about  one-half  the 
total  number  of  runs,  double  zero  or  one  runs  should  be  about  one-quarter  the  total  number,  triple 
runs  should  be  about  one-eighth,  etc.  Finally,  the  correlation  property  imposes  that  if  the 
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sequence  is  cyclically  shifted  and  compared  with  itself  term  by  term,  the  number  of 
disagreements  and  agreements  should  be  within  one  regardless  of  the  number  of  shifts  [1]. 

2.3.1  Maximal  Length  Sequences 

A  maximal  length  sequence  (m-sequence)  is  generated  by  choosing  a  suitable  generator 
polynomial,  termed  a  primitive  polynomial,  for  the  LFSR.  The  length  of  the  binary  sequence,  N, 
is  2''-  1,  where  r  is  the  number  of  stages,  or  registers,  in  the  LFSR.  An  m-sequence  satisfies  all 
three  pseudorandom  code  properties — ^balance,  run,  and  correlation-plus  two  additional 
properties.  The  first  additional  property  is  the  shift-and-add  property  which  states  that  the 
modulo-2  sum  of  any  m-sequence  and  a  phase  shifted  version  of  the  same  sequence  produces  yet 
another  phase  of  the  same  sequence.  The  second  additional  property  states  that  the  LFSR 
encounters  every  possible  state  except  the  all  zero  state  before  repeating  [3].  The  example  given 
in  Section  2.2,  Figure  2-1  and  Table  2-1,  produces  an  m-sequence. 

2.3.2  Composite  Codes 

Composite  codes  are  produced  by  combining  two  or  more  linear  codes,  such  as  those 
produced  by  LFSRs.  Very  complex  codes  can  be  generated  by  this  method  and  can  be  designed 
to  possess  certain  useful  properties.  The  next  two  subsections  briefly  introduce  Gold  codes  and 
Jet  Propulsion  Laboratory  ranging  codes,  two  specific  forms  of  composite  codes. 

2.3.2.1  Gold  Codes 

The  thrust  behind  Gold  code  development  was  to  find  sets  of  compatible  codes  for 
multiple-access  Spread  Spectrum  (SS)  communications.  Gold  codes  are  produced  by  modulo-2 
addition  of  preferred  pairs  of  equal  length  m-sequences  and  result  in  a  code  of  the  same  length. 
These  preferred  pairs  possess  certain  properties  relative  to  each  other.  Different  codes  of  a  set  are 
produced  by  using  different  relative  phases  for  one  of  the  LFSRs.  The  resulting  set  of  codes 
exhibit  well  behaved  cross-correlation  characteristics  [3]. 
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A  common  example  of  Gold  code  use  is  the  Coarse/Acquisition  (C/A)  code  of  the  Global 
Positioning  System  (GPS).  Each  satellite  uses  two  10  stage  LFSRs  to  produce  its  individual  code 
as  shown  in  Figure  2-2.  Every  satellite  has  the  same  two  LFSR  configurations  (generator 
polynomials)  which  are  all  started  with  an  all  ones  fill.  The  individual  satellite  codes  are 
produced  by  using  different  phase  taps  on  the  G2  LFSR,  effectively  using  different  phases  of  the 
code. 


Figure  2-2  Global  Positioning  System  Gold  Code  Generator  Example  [4J. 


2.3.2.2  Jet  Propulsion  Laboratory  Ranging  Codes 

Jet  Propulsion  Laboratory  (JPL)  ranging  codes  are  produced  by  modulo-2  addition  of  two 
or  more  m-sequences  of  relatively  prime  lengths.  The  resulting  code  has  a  very  long  period, 
allowing  for  the  measurement  of  long  distemces.  Synchronization  with  the  received  signal  is  also 
made  easier  by  the  fact  that  each  of  the  component  codes  can  be  synchronized  independently  of 
the  others,  thereby,  drastically  reducing  the  search  space  [5]. 

Although  JPL  ranging  codes  and  Gold  codes  can  be  generated  in  very  similar  manners, 
the  difference  between  them  is  the  length  of  their  component  codes.  Figure  2-3  gives  an  example 
setup  for  generating  a  JPL  ranging  code.  Notice  that  the  resulting  code  length  is  the  product  of 
the  component  code  lengths  [5]. 
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Qock  input 


Figure  2-3  JPL  Code  Generation  Example. 


2.3.3  Non-Linear  Codes 

Although  maximal-length  linear  codes  are  easily  produced  by  Linear  Feedback  Shift 
Registers  (LFSRs),  they  are  not  very  secure.  For  example,  algorithms  such  as  Berelekamp- 
Massey  exist  for  reverse  engineering  the  generator  polynomial  if  2r  successive  code  symbols  are 
known,  where  r  is  the  length  of  the  original  LFSR.  Since  it  is  often  desirable  to  keep  digital 
communications  private,  other  code  generation  methods  have  been  developed  which  make 
determining  the  spreading  code  more  difficult  for  an  unintended  receiver  because  they  can  not  be 
described  by  linear  recurrence  relationships  [3].  It  should  be  noted  that  more  than  one  definition 
of  a  “non-linear”  code  exists.  For  example,  some  definitions  are  broad  enough  to  include  any 
code  created  by  the  modulo-2  addition  of  two  or  more  codes. 

One  method  of  generating  a  non-linear  code  is  using  two  or  more  linear  codes  as  the 
index  for  a  look-up  table.  The  look-up  table  can  be  constructed  in  such  a  manner  that  the 
resulting  output  cannot  be  written  as  a  linear  combination  of  the  original  codes.  Such  a  method  is 
shown  in  Figure  2-4. 
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Figure  2-4  Example  of  Non-Linear  Code  Generation  Using  a  Lookup  Table. 


2.4  Manual  Control 

Previous  work  by  Brendle  provides  for  manual  control  of  the  Stanford  Telecom 
STEL-1032  [2].  By  using  thumbwheels  and  pushbuttons,  the  user  can  set  the  STEL-1032 
registers,  load  the  coders,  and  enable/disable  the  clock  inputs.  The  hardware  also  provides  BNC 
connectors  for  all  inputs  and  outputs.  The  outputs  are  buffered  and  capable  of  driving  50 
loads.  The  circuit  design  included  partial  provisions  for  the  future  addition  of  automated  control. 
For  more  complete  design  information,  the  reader  is  directed  to  Ref.  2.  The  modifications  made 
to  this  hardware  are  discussed  in  Chapter  3. 

2.5  Microcontroller 

Microcontrollers  are  the  control  system  of  the  present  and  future.  They  can  be  found  in 
everything  from  toasters  to  automobiles  to  jet  aircraft.  Microcontrollers  often  reduce  complex 
hardware  control  issues  down  to  connecting  a  few  sensors  and  writing  some  code.  By  quickly 
establishing  a  hardware  design,  the  code  can  then  be  written  and  rewritten  until  the  desired  effects 
are  achieved  without  ever  changing  the  hardware. 

A  microcontroller  is  basically  a  one  chip  computer  typically  containing  a  central 
processing  unit,  random  access  memory  and/or  read  only  memory,  input  and  output  units,  timers. 


2-6 


and  an  interrupt  controller.  They  often  require  very  little,  if  any,  supporting  hardware  to  form 
fully  functioning  control  systems.  They  are  available  in  devices  with  anywhere  from  16  pins  with 
only  a  few  input/output  lines  to  hundreds  of  pins  with  many  input/output  lines,  from  relatively 
slow  clock  rates  to  relatively  fast  clock  rates,  from  a  memory  space  counted  in  bytes  to 
megabytes,  etc  [6]. 

2.6  Graphical  User  Interface 

If  you  have  used  a  Windows,  Icon,  Menu,  and  Pointer  (WIMP)  interface  such  as 
Microsoft  Windows®95,  then  you  have  used  a  Graphical  User  Interface  (GUI).  The  GUI  concept 
provides  a  visual  interface  which  is  reasonably  intuitive  to  a  human  user,  thus,  acting  as  a 
gateway  to  the  underlying  software’s  capabilities. 

2.7  Summary 

This  chapter  provides  an  overview  of  linear  feedback  shift  registers,  some  of  the  various 
codes  used  in  spread  spectrum  communications,  the  manual  control  previously  available,  and 
introduces  the  microcontroller  and  Graphical  User  Interface  (GUI)  concepts.  It  was  shown  that 
non-linear  codes  and  composite  codes  such  as  Gold  codes  and  Jet  Propulsion  Laboratory  ranging 
codes  can  be  produced  by  combining  multiple  linear  feedback  shift  registers  in  prescribed 
manners. 
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CHAPTERS 


SYSTEM  DESIGN  METHODOLOGY 


3.1  Introduction 

The  purpose  of  this  thesis  was  to  design  and  build  a  user  friendly,  efficient  means  for 
producing  various  pseudorandom  sequences.  This  goal  was  accomplished  by  adding  automated 
(computer)  control  to  a  previously  developed  manual  interface  to  the  Stanford  Telecom 
STEL-1032  Pseudo-Random  Number  Coder  [2].  By  using  a  premanufactured,  commercially 
available  microcontroller  evaluation  board,  hardware  design  time  was  converted  to  software 
design  time. 

The  microcontroller  acts  as  an  interface  between  the  MATLAB®  Graphical  User  Interface 
running  on  a  Personal  Computer  (PC)  and  the  STEL-1032.  The  PC  and  microcontroller  are 
connected  by  a  standard  RS-232  serial  interface.  The  microcontroller  interconnects  with  the 
STEL-1032  control  inputs  through  manual/auto  control  selection  logic.  Several  STEL-1032 
outputs  and  inputs  are  connected  to  the  microcontroller  for  data  collection  and  additional  control 
possibilities. 

This  chapter  outlines  the  STEL-1032  architecture,  describes  the  microcontroller  selection 
process,  reviews  the  existing  hardware  design,  and  explains  the  hardware  modification  and 
software  design  methodology. 

3.2  STEL-1032  Pseudo-Random  Number  (PRN)  Coder  Overview 

The  Stanford  Telecom  STEL-1032  Pseudo-Random  Number  (PRN)  Coder  contains  three 
independent,  32-stage  Linear  Feedback  Shift  Registers  (LFSRs)  labeled  Codero,  Coder i,  and 
Coder2.  Each  coder  is  capable  of  generating  codes  up  to  iP'  -  1  (4,294,967,295)  chips  in  length  at 
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XOR  012 

XOR  01 

MIXCODE 

EARLY 

PUNCT 

LATE 

CODEO 
EPOCH  0 
COUNT 0 
MODCOD  0 
LDSYNC  0 
REF  15-0 
STSYNC 

CODE1 
EPOCH  1 
COUNT  1 
MODCOD 1 
LDSYNC  1 
REF  15-1 


CODE  2 
EPOCH  2 
COUNT  2 
MODCOD  2 
LDSYNC  2 
REF  15-2 


Figure  3-1  STEL-1032  Block  Diagram  [7]. 


chip  rates  up  to  30  MHz.  The  STEL-1032  also  contains  provisions  for  code  modulation, 
modulo-2  addition  of  various  internal  signals,  and  non-linear  code  generation  via  a  lookup 


table  [7]. 

The  next  four  subsections  outline  the  inputs,  outputs,  registers,  and  control  mechanisms 
of  the  STEL-1032.  The  overall  block  diagram  is  shown  in  Figure  3-1.  For  a  more  detailed 
description,  the  reader  is  directed  to  Ref.  7,  the  Stanford  Telecom  data  sheet  for  the  STEL-1032. 
Unfortunately,  the  STEL-1032  is  out  of  production. 


3.2.1  PRN  Coder  Inputs 

The  Stanford  Telecom  STEL-1032  has  a  total  of  29  input  lines.  These  lines  and  a  brief 
description  of  their  associated  functions  are  listed  below  in  Table  3-1.  Note  that  the  “0-2” 
subscripts,  such  as  on  LOAD0-2,  indicate  that  three  LOAD  input  lines  exist  such  that  LOADq  is 
associated  with  Codero,  LOADi  is  associated  with  Coderi,  and  so  forth. 
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Table  3-1  STEL-1032  Inputs  [7]. 


Function 

RESET 

Resets  all  registers  to  zero 

CSN 

Enables  loading  of  data  when  low 

WRN 

Data  is  written  into  register  when  low  and  latched 
on  the  rising  edge 

Selects  target  register  for  a  write 

1  ADDR5.7 

Coder  and  code  combiner  selection  for  a  write 

Data  to  be  written  into  the  register 

LOADo.2 

Transfer  contents  of  E'HT  register  to  the  PRN 
register  and  COUNT  to  the  Counter  register. 

CLKo.2 

Clock  inputs  to  Coders  0-2 

Data  to  be  modulo-2  added  to  CODE0.2 

1  STLD 

Latches  data  on  STIM0-2 

3.2.2  PRN  Coder  Outputs 

The  STEL-1032  has  25  output  lines,  as  described  in  Table  3-2.  Note  that  the 
“0-2”  subscripts,  such  as  on  CODE0.2,  indicate  that  three  CODE  output  lines  exist  such  that 
CODEo  is  associated  with  Codero,  CODE]  is  associated  with  Coderi,  and  so  forth. 


Table  3-2  STEL-1032  Outputs  [7]. 


ESJillQ 

Function 

CODEo-2 

PRN  generator  outputs  from  the  register  bit  selected  by  the 
Phase  Mux  register 

mmsmm 

CODEo.2  output  after  modulation  by  the  STIM0.2  input 

PUNCT 

MDCCODE  delayed  by  one  clock  cycle 

EARLY 

Half  clock  cycle  delay  of  MDCCODE 

LATE 

Half  clock  cycle  delay  of  PUNCT 

Low  when  INIT  register  transferred  to  PRN  Generator 

REF150.2 

Code  output  derived  from  fifteenth  register  bit 

STSYNC 

Low  for  one  clock  cycle  after  the  STLD  input  signal 

IISSSHl 

Low  when  PRN  Generator  equals  the  EPOCH  register 

COUNTo.2 

Delayed  replica  of  LDSYNC0.2  output 

XOROl 

Modulo-2  addition  of  CODEo  and  CODEi 

XOR012 

Modulo-2  addition  of  CODEo,  CODEi,  and  CODE2 

MKCODE 

Bit  stored  in  Code  Combiner  Lookup  Register  as  addressed  by 
MODCODo.2 
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3.2.3  Registers 

Each  coder  of  the  STEL-1032  has  four  32-bit  registers,  one  eight  bit  register,  and  one  five 
bit  register.  The  four  32-bit  registers  are  the  MASK,  INIT,  EPOCH,  and  COUNT  registers.  The 
eight  bit  register  is  the  CTL  register  and  the  five  bit  register  is  the  MUX  register.  There  is  one 
eight  bit  register  common  to  the  three  coders,  the  Code  Combiner  Lookup  register  [7]. 

The  MASK  register  contains  a  32-bit  binary  representation  of  the  generator  polynomial. 
If  the  polynomial  is  expressed  as 

G  =  \  +  D^{x)  +  D^ {x'^ ) -H  D3 {x^ )...+D^, (x^' )  +  D32 (x^^ ) , 

then  Dj  =  Bit  0,  D2  =  Bit  1,  Dj  =  Bit  2,  and  so  forth.  Notice  that  the  STEL-1032’s  binary 
representation  does  not  include  the  Do  term  which  is  assumed  to  always  be  one,  as  is  necessary 
for  an  LFSR.  Changes  to  the  MASK  register  affect  the  PRN  generator  immediately  [7]. 

The  32-bit  /N/T  register  is  used  to  establish  the  initial  fill,  or  phase,  of  the  generated 
code.  The  INIT  register’s  contents  are  transferred  to  the  PRN  Generator  upon  a  load  command, 
either  from  the  external  LOAD  input  line  or  from  the  internal  control  logic  [7]. 

The  contents  of  the  PRN  Generator’s  registers  are  constantly  compared  to  the  contents  of 
the  32-bit  EPOCH  register.  Upon  a  match,  the  EPOCH  output  line  goes  low  for  the  duration  of 
the  match.  All  bits  of  the  EPOCH  register,  beyond  the  MASK  register’s  most  significant  bit, 
must  be  zero  for  proper  operation  [7]. 

The  32-bit  COUNT  register’s  value  is  transferred  to  the  counter  upon  a  load  command, 
either  from  the  LOAD  input  or  from  the  internal  control  logic  [7]. 

The  five  bit  Phase  MUX  register  selects  which  PRN  Generator  register  tap  is  connected  to 
the  CODE  output  line.  A  value  of  zero  selects  tap  one  and  a  value  of  31  selects  tap  32  [7]. 

The  eight  bit  CTL  register  determines  how  the  coders  respond  to  EPOCH  and  COUNT 
pulses  [7].  Table  3-3  outlines  the  CTL  register  options. 
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Table  3-3  STEL-1032  Control  Register  Bit  Pair  Functions  [7]. 


B7  B6 

Function 

0 

0 

Counter  is  not  reloaded  on  any  EPOCH  pulse 

0 

1 

Counter  is  reloaded  on  EPOCHp  pulse 

1 

0 

Counter  is  reloaded  on  EPOCH]  pulse 

1 

1 

Counter  is  reloaded  on  EPOCH2  pulse 

B5  B4 

Function 

0 

0 

Counter  is  not  reloaded  on  any  COUNT  pulse 

0 

1 

Counter  is  reloaded  on  COUNTo  pulse 

1 

0 

Counter  is  reloaded  on  COUNT]  pulse 

1 

1 

Counter  is  reloaded  on  COUNT2  pulse 

B3  B2 

Function 

0 

0 

PRN  Gen.  is  not  reloaded  on  any  EPOCH  pulse 

0 

1 

PRN  Gen.  is  reloaded  on  EPOCHp  pulse 

1 

0 

PRN  Gen.  is  reloaded  on  EPOCH]  pulse 

1 

1 

PRN  Gen.  is  reloaded  on  EPOCH2  pulse 

B1 

BO 

Function 

0 

0 

PRN  Gen.  is  not  reloaded  on  any  COUNT  pulse 

0 

1 

PRN  Gen.  is  reloaded  on  COUNTp  pulse 

1 

0 

PRN  Gen.  is  reloaded  on  COUNT]  pulse 

1 

1 

PRN  Gen.  is  reloaded  on  COUNT2  pulse 

Table  3-4  Register  Address  Selection  and  Coder  Selection  [7]. 


A4  A3 

A2  A1 

AO 

Register  Selected 

0 

0 

0 

0 

0 

MASK  Register  bits  0-7 

0 

0 

0 

0 

1 

MASK  Register  bits  8-15 

0 

0 

0 

1 

0 

MASK  Register  bits  16-23 

0 

0 

0 

1 

1 

MASK  Register  bits  24-3 1 

0 

0 

1 

0 

0 

INIT  Register  bits  0-7 

0 

0 

1 

0 

1 

INIT  Register  bits  8-15 

0 

0 

1 

1 

0 

INIT  Register  bits  16-23 

0 

0 

1 

1 

1 

INIT  Register  bits  24-31 

0 

1 

0 

0 

0 

EPOCH  Register  bits  0-7 

0 

1 

0 

0 

1 

EPOCH  Register  bits  8-15 

0 

1 

0 

1 

0 

EPOCH  Register  bits  16-23 

0 

1 

0 

1 

1 

EPOCH  Register  bits  24-31 

0 

1 

1 

0 

0 

COUNT  Register  bits  0-7 

0 

1 

1 

0 

1 

COUNT  Register  bits  8-15 

0 

1 

1 

1 

0 

COUNT  Register  bits  16-23 

0 

1 

1 

1 

1 

COUNT  Register  bits  24-31 

1 

0 

0 

0 

0 

MUX  Register  bits  0-4 

1 

0 

0 

0 

1 

CTL  Register  bits  0-7 

A7 

A6 

A5 

0 

0 

0 

0 

0 

1 

0 

1 

0 

0 

1 

1 

1 

0 

0 

Coder  Selected 

Coderp _ 

Coder] _ 


3.2.4Control 


Control  of  the  STEL-1032  is  achieved  by  loading  the  internal  registers,  as  outlined  in  the 
Registers  section  above,  with  appropriate  values.  Loading  the  registers  is  accomplished  by  using 
the  eight  bit  address  and  eight  bit  data  input  lines.  Assuming  the  Chip  Select  (CSN)  is  low  and 
the  correct  address  and  data  have  been  established  on  appropriate  lines,  the  Register  Write  control 
(WRN)  is  given  a  low  pulse.  Data  is  latched  into  the  register  on  the  rising  edge  of  the  WRN 
signal.  Table  3-4  outlines  the  addressing  scheme. 

3.3  Microcontroller  Selection 

Thousands  of  microcontroller  variations  exist  from  manufacturers  such  as  Intel,  Siemens, 
Atmel,  Parallax,  Motorola,  Philips,  Texas  Instruments,  and  Dallas  Semiconductor.  Likewise, 
thousands  of  microcontroller  evaluation  boards  are  available  from  these  manufacturers,  as  well 
as,  other  commercial  companies.  By  applying  a  set  of  selection  criteria,  one  product  was  singled 
out  for  this  effort.  The  selection  criteria  included: 

1.  Adequate  input/output  capabilities 

2.  Adequate  performance  prospects 

3.  Adequate  memory 

4.  Usability  of  development  environment 

5.  Large  base  of  on-line  (World  Wide  Web)  support 

6.  Cost 

7.  Cost  to  performance  ratio 

8.  Available  on  a  ready-to-go,  commercial  evaluation  board 

Two  examples  of  contenders  which  did  not  make  the  final  cut  are  the  Teeny  Electronics 
G200-22  Model  and  the  Rigel  Corporation  RMB-167i.  The  Teeny  G200-22  sports  an  8-bit  Intel 
80C51GB  microcontroller  running  at  22  MHz  with  32  kbytes  of  RAM  and  costs  about  $75  [8]. 
While  this  board  sounds  inviting  at  first,  it  simply  does  not  have  enough  memory,  input/output 
pins,  or  speed.  Thus,  it  does  not  satisfy  several  of  the  “adequate”  criteria  listed  above.  On  the 
other  hand,  the  Rigel  RMB-167i  has  a  16-bit  Siemens  80C167  microcontroller  running  at  40 
MHz  and  is  available  with  256  kbytes  of  RAM  and  costs  $210  [9].  Although  the  Siemens 
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80C167  has  an  increased  number  of  input/output  pins  and  some  additional  instructions,  as 
compared  to  the  Siemens  80C166,  they  both  have  the  same  computing  power.  Even  though  the 
RMB-167i  comes  in  above  all  the  “adequate”  bars,  the  cost  and  cost-to-performance  ratio  are  not 
favorable.  Although  the  Teeny  0200  and  Rigel  Corp.  RMB-167i  are  fine  products,  they  do  not 
satisfy  project  requirements. 

While  searching  for  possible  products,  it  was  quickly  concluded  that  price  alone  is  not  an 
indicator  of  performance.  Usually  a  higher  price  simply  means  that  more  software  is  included  or 
that  the  product  is  aimed  at  the  educational  market. 

The  final  product  selected  is  Rigel  Corporation’s  RMB-166  with  256  kbytes  of  RAM, 
costing  approximately  $130.  The  microcontroller  on  this  board  is  the  Siemens  80C166  16-bit 
high-performance  microcontroller  running  at  40  MHz.  The  package  included  a  demo  version  of 
the  READS  166  v3.00  Integrated  Development  Environment  with  Rc66  Compiler/Debugger 
which  proved  to  be  adequate  for  this  study. 


3.4  Hardware  Design 

The  previously  built  hardware  included  partial  provisions  for  adding  automated  computer 
control  [2].  Buffers  were  in  place  for  the  eight  address  lines  and  the  eight  data  lines.  However, 
no  interfaces  to  the  Chip  Select  (CSN),  Register  Write  (WRN),  Reset,  or  the  LOAD0-2  lines  were 
included. 

To  accomplish  integration  of  the  Rigel  Corp.  RMB-166  microcontroller  into  the  existing 
hardware,  three  main  circuits  were  developed  and  added  to  the  hardware.  The  first  serves  as  the 
address  decoder  logic  and  controls  the  STEL-1032  WRN  input.  The  second  circuit  provides  an 
interface  to  the  CSN,  WRN,  RESET,  and  LOAD0-2  control  lines.  The  third  circuit  adds  buffering 
for  three  additional  external  inputs. 
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Figure  3-2  Block  Diagram  of  System  Layout. 


Figure  3-2  gives  an  overall  view  of  the  new  control  circuit  layout.  In  this  figure,  the 
signals  are  “coded”  by  font  style.  iHipSCt  style  font  indicates  output  lines  of  the  RMB-166. 
Times  New  Roman  Italics  specify  translation  of  the  iHipSCt  lines  to  STEL-1032  input  lines. 
Times  New  Roman  normal  designates  the  lines  coming  from  the  manual  control  section.  Finally, 
Times  New  Roman  Bold  lines  are  actual  STEL-1032  input  control  lines.  The  Address  and  Data 
Interface  block  was  already  available  in  the  hardware. 
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3.4.1  Address  Decoder/Register  Write  Control 

The  Address  Decoder/Register  Write  Control  (AD/RWC)  circuit  produces  a  low  pulse 
when  two  conditions  are  met,  1)  the  address  present  on  the  microcontroller’s  ADDRESSo-15  lines 
match  a  preset  address,  and  2)  the  microcontroller’s  WR#  line  is  low.  The  preset  address  is 
F9FEi6  (hexadecimal)  which  is  the  last  word  address  available  on  the  external  memory  bus. 

The  AD/RWC  output  is  connected  to  the  STEL-1032’s  WRN  input  through  the  Control 
Line  Interface  circuit  as  shown  in  Figure  3-2.  Thus,  when  data  is  written  to  address  F9FEi6,  the 
data  present  on  the  microcontroller’s  DATAg-is  lines  is  written  to  the  STEL-1032  register 

addressed  by  the  microcontroller’s  DATA0.7  lines. 

J 

The  circuit  consists  of  two  74LS688  8-bit  Identity  Comparators  as  shown  in  Figure  3-3. 


Figure  3-3  Address  Decoder/Register  Write  Control  (AD/RWC)  Circuit. 


3.4.2  Control  Line  Interface 

The  Control  Line  Interface  permits  the  RMB-166  to  control  the  RESET,  CSN,  WRN, 
LOADo,  LOAD],  and  LOAD2  input  lines  of  the  STEL-1032.  The  circuit  uses  two  74LS157 
Quadruple  2-Line  to  1-Line  Data  Selectors  and  is  shown  in  Figure  3-4. 
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Original  Hardware  Connections 


R8/C9  - 

- ►  RESET  (U50-50) 

rni  n 

U23-1 2 - ►  LOAD:  (U50-68) 

New  Hardware  Connections 


GND- 

U5-3- 

P3-0- 
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Not 
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9 

I  Not 

12 _ 
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U46-19- 

U24-12' 
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- U50-67 

9 _ 

U50-4 

12 _ 

- U5049 

Figure  3-4  Control  Line  Interface  Circuit. 


3.4.3  External  Input  Buffer 


The  External  Input  Buffer  circuit  merely  provides  protection  between  the  external  inputs 
and  the  RMB“166  inputs  while  also  aiding  in  noise  immunity  with  the  74LS14’s  input  hysteresis. 
Figure  3-5  shows  the  circuit  diagram. 


Extml- 


U51-I2- 


ExtmO- 


74LS14 

U51 


■^^-[^>012- 


-U51-3 


-P2-15 


-U51-5 


-P2-13 


-U51-!I 


Figure  3-5  External  Input  Buffer  Circuit. 


3.4.4  Interrupt  Trigger/Data  Collection 

Ten  STEL-1032  outputs,  three  STEL-1032  inputs,  and  three  external  inputs  are 
connected  directly  to  Port  2  of  the  RMB-166.  These  inputs  (with  respect  to  the  RMB-166)  are 
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capable  of  triggering  events  and  being  sannpled,  as  is  covered  in  the  Software  Design  section  to 
come.  Table  3-5  outlines  the  signal  connections  to  the  RMB-166. 


Table  3-5  Interrupt  Trigger/Data  Collection  Connections. 


Signal 

mm 

Signal 

STEL-1032 

Input/Output 

mm 

CLKo 

I 

P2-0 

I 

P2-8 

COUNTo 

0 

P2-1 

0 

P2-9 

OSSSiH 

0 

P2-2 

0 

P2-10 

CODEo 

0 

P2-3 

C0DE2 

0 

P2-11 

CLKi 

I 

P2-4 

MKCODE 

0 

P2-12 

COUNT, 

0 

P2-5 

P2-13 

0 

P2-6 

1  EXTRN, 

P2-14 

1  CODE, 

0 

P2-7 

P2-15 

3.5  Software  Design 

The  software  is  broken  down  into  three  parts:  the  MATLAB®  Graphical  User  Interfaces 
(GUIs),  the  microcontroller  “resident”  code,  and  the  “user”  code.  The  user  develops  a 
STEL-1032  setup  using  the  GUIs,  then  downloads  the  resulting  user  code  to  the  microcontroller 
via  the  resident  code.  The  basic  event  flow  is  depicted  in  Figure  3-6.  The  user  may  bypass  the 
Process  List  Quick  Builder  and  start  with  the  Process  List  Developer. 


Rooesslist 

Riooessljst 

Ftooesslist 

Boatload 

RooessList 

1 

TJfeerCbde 

QidcHrilda* 

-> 

EtevdqDer 

Gbnmmicata 

Mcnooorttdler 

Gbnpiler 

1 

Ebwtioaito 

Execute 

1 

CyiectEtta 

1 

Retrieve  Data 

1 

E?qxxt  Signals  to 

Moxxxxtrdler 

IkrOxfe 

1 

1 

1 

BaseWxtopaoe 

Figure  3-6  Flow  of  Events. 


3.5.1  Microcontroller  “Resident”  Code 

The  microcontroller  “resident”  code  consists  of  helper  functions  which  handle  such 
activities  as  downloading  and  executing  the  “user”  code,  transmitting  collected  data,  starting  the 
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collection  process,  stopping  the  collection  process,  resetting  the  system,  and  sending  an 
Identification  (ID)  string.  This  resident  code  is  downloaded  to  the  microcontroller  and  executed 
by  the  MATLAB®  GUI  after  a  hardware  system  reset  (pressing  the  hardware  Reset  button  on  the 
front  of  the  box). 

The  resident  code  was  originally  written  in  C  and  compiled  using  Rigel  Corporation’s 
READS  166  v3.00  Integrated  Development  Environment  with  Rc66  Compiler/Debugger. 
Although  the  resulting  assembly  language  code  was  operationally  correct,  it  was  determined  to  be 
very  inefficient  and  much  larger  than  necessary.  Assembling  the  Rc66  Compiler’s  assembly  code 
produced  machine  language  code  approximately  4.6  kbytes  in  size.  Manual  coding  reduced  the 
machine  language  code  to  994  bytes  while  actually  enhancing  functionality.  The  Siemens 
80C166  assembly  language  resident  code  is  listed  in  Appendix  C. 

In  the  following  subsections,  the  notation  “[NL]”  is  introduced  and  stands  for  ASCII  new 
line  character,  number  10.  The  term  “received”  refers  to  receiving  data  from  the  PC  through  the 
serial  port  and  “retum(s)”  or  “transmit(s)”  refers  to  sending  data  to  the  serial  port.  When  “xxxx” 
or  “yyyy”  appears,  it  indicates  a  hexadecimal  number  in  its  ASCII  representation.  For  example, 
lOBAie,  is  transmitted  as  the  sequence  [character  49][character  48][character  66][character  65]. 

3.5.1.1  Identification  Routine 

When  the  ASCII  character  “I”  is  received,  the  identification  routine  sends  the  string  “BK 
vl.O  Loaded[NL]”  to  the  serial  port. 

3.5.1.2  Download  Routine 

The  download  routine  receives  the  user  code  and  places  it  in  the  proper  memory 
locations.  This  transfer  is  initiated  when  “Dxxxx”  is  received,  where  “xxxx”  is  the  number  of 
bytes  to  download  in  hexadecimal.  The  resident  code  first  returns  “DOWN[NL]”  and  then  is 
ready  to  except  the  download.  WTien  the  prescribed  number  of  bytes  have  been  received,  the 
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microcontroller  transmits  the  address  after  the  last  byte  of  user  code  in  hexadecimal  followed  by 


“[NL].” 


3.5.1.3  Execute  Routine 

The  reception  of  the  “E”  character  causes  the  resident  code  to  respond  with  “EXEC[NL]” 
and  then  execute  the  user  code. 

3.5.1.4  Start  Collection  Routine 

The  start  collection  routine  starts  data  collection  on  the  indicated  clock  signal  and  takes 
the  indicated  number  of  samples.  Data  collection  is  initiated  upon  receiving  “Cxxxxw”  where 
“xxxx”  is  the  number  of  samples  to  take  in  hexadecimal  and  “w”  is  which  clock  to  trigger  on  (“0” 
is  CLKo,  “1”  is  CLKi,  and  “2”  is  CLK2).  The  microcontroller  responds  with  “CLCT[NL],”  or 
collect,  indicating  that  a  correct  collect  command  was  received. 

Upon  completing  data  collection,  the  microcontroller  transmits  “FINC[NL],”  ox  finished 
collecting. 

3.5.1.5  Send  Routine 

Upon  receiving  “Sxxxx,”  the  microcontroller  responds  with  “SENDyyyy”  and  proceeds 
to  transmit  “yyyy  ”  bytes  of  data.  The  number  “yyyy”  is  the  lesser  of  either  two  times  “xxxx”  or 
two  times  the  number  of  data  samples  which  have  actually  been  collected. 

3.5.1.6  Stop  All  Routine 

The  stop  all  routine  disables  all  interrupts  and  then  responds  with  “STPA[NL],”  or  stop 
all.  It  is  called  when  “X”  is  received. 
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3.5.1.7  Finish  Collection  Routine 


Upon  reception  of  “F,”  data  collection  is  halted.  The  microcontroller  responds  with 
“STPC[NL],”  or  stop  collection,  and  then  “xxxx[NL]”  where  “xxxx”  is  twice  the  number  of 
samples  taken  in  hexadecimal. 

3.5.1.8  Reset  Routine 

The  reset  routine  disables  all  interrupts,  stops  the  collection  process,  resets  the  collection 
variables,  and  resets  the  user  code.  Receiving  “R”  calls  the  reset  routine.  The  microcontroller’s 
response  is  “STPA[NL]”  followed  by  “RST[NL],”  or  reset. 

3.5.2  MATLAB®  Graphical  User  Interface 

The  MATLAB®  part  of  this  system  has  three  parts:  the  Process  List  Quick  Builder,  the 
Process  List  Developer,  and  the  Process  List  Communicator.  Each  of  these  pieces  work  together 
to  make  a  user  friendly  environment  for  developing  setups  for  the  STEL-1032.  The  MATLAB® 
code  developed  for  this  thesis  is  included  in  Appendix  B. 

3.5.2.1  Process  List  Quick  Builder 

The  Process  List  Quick  Builder  (PLQB),  as  shown  in  Figure  3-7,  allows  the  user  to 
access  all  the  Stanford  Telecom  STEL-1032’s  internal  registers  with  one  easy  to  use  GUI.  When 
the  user  has  completed  setting  the  registers,  all  values  are  transferred  to  the  Process  List 
Developer  (PLD)  by  first  clicking  the  Validate  button. 

The  Validate  button  checks  all  values  to  insure  that  they  are  between  acceptable  limits.  If 
a  value  is  determined  to  be  an  invalid  entry,  the  associated  label  turns  red.  It  returns  to  black 
when  the  value  is  corrected  and  the  Validate  button  is  pressed  again. 

The  checkboxes  next  to  the  “Coder  1,”  “Coder  2,”  and  “Mixcode”  labels  are  used  to 
indicate  the  use  of  the  respective  STEL-1032  sections.  The  values  of  any  section  with  an 
unchecked  box  are  not  exported  to  the  PLD. 
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Once  validation  is  complete,  the  Export  to  PLD  button  is  used  to  transfer  all  values  from 
the  identified  (checked)  sections  to  the  PLD  in  the  form  of  a  Process  List  (PL).  If  the  PLD  is  not 
already  open,  it  opens  automatically. 


The  user  can  save  and  recall  specific  setups  using  the  “Workspace”  menu  item  on  the 
menu  bar. 


Figure  3-7  Process  List  Quick  Builder  Screen  Shot. 


3.5.2.2  Process  List  Developer 

From  the  Process  List  Developer  (PLD)  GUI,  shown  in  Figure  3-8,  the  user  has  access  to 
all  capabilities  of  the  system,  including  setting  the  STEL-1032  registers,  setting  up  Interrupt 
Service  Routines  (ISRs),  initiating  data  collection,  and  terminating  data  collection.  Using  the 
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Process  List  Item  Builder  (PLDB)  of  the  PLD,  the  user  can  add  Process  List  Items  (PLIs)  to  the 
Process  List  (PL).  The  PL  represents  the  pseudo-code  which  is  compiled  and  downloaded  to  the 
microcontroller. 

Under  the  “List”  menu  item,  the  user  can  save  and  recall  PLs  and  reset  the  current  PL. 
The  “Comment”  menu  selection  allows  the  user  to  view  and  edit  the  Process  List  Comment 
associated  with  the  current  PL.  The  “Undo”  menu  contains  a  list  of  all  deleted  PLIs  from  which 
the  user  can  reinsert  deleted  PLIs  by  simply  selecting  it  on  the  menu. 

By  selecting  a  PLI  and  pressing  the  Edit  button,  the  user  can  edit  the  current  PLI  using 
the  PLIB.  The  change  is  made  to  the  PLI  in  the  PL  when  the  Add  button  is  pressed.  If  any  object 
on  the  PLD  screen  is  clicked  (other  than  in  the  PLIB)  between  pressing  the  Edit  button  and  the 
Add  button,  edit  mode  is  aborted.  As  implied,  the  Delete  button  deletes  the  currently  selected  PLI 
and  places  it  in  the  Undo  menu.  Because  event  order  can  be  important,  the  user  can  move  a  PLI 
up  or  down  the  list  using  the  Move  Up  and  Move  Down  buttons.  When  the  user  has  finished  PL 
development,  the  Done  button  is  pressed  which  automatically  opens  the  Process  List 
Communicator  if  it  is  not  already  open. 

The  PLIB  consists  of  three  list  boxes,  a  Value  edit  box,  and  the  Add  button.  The  first  list 
box.  When,  selects  the  trigger.  When  the  indicated  trigger  event  occurs,  the  PLIs  associated  with 
it  in  the  PL  are  executed.  All  initialization  actions  are  associated  with  the  INIT  trigger,  which  is 
the  first  thing  executed.  The  second  list  box.  Action,  indicates  what  should  be  done  to  the  item 
designated  in  the  third  list  box.  What.  The  Value  edit  box  determines  what  value  is  associated 
with  the  What  item,  if  necessary.  If  no  value  is  associated  with  the  selected  What  item,  the  Value 
edit  box  does  not  appear.  The  Base  indicator  automatically  changes  to  the  base  (octal,  decimal, 
or  binary)  appropriate  for  the  value  of  the  selected  What  item. 
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Figure  3-8  Process  List  Developer  Screen  Shot 


Figure  3-9  Control  Register  Tool  Screen  Shot. 
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When  CTLO,  CTLl,  CTL2,  or  CTLALL  (the  STEL-1032  control  registers)  is  selected  in 
the  What  list  box,  clicking  on  the  Value  edit  box  brings  up  the  Control  Register  Tool  as  shown  in 
Figure  3-9.  This  tool  allows  the  user  to  set  all  valid  options  for  the  selected  CTL  register. 
Clicking  the  OK  button  transfers  the  correct  binary  representation  of  the  user’s  selections  to  the 
Value  edit  box. 

3.5.2.3  Process  List  Communicator 

The  Process  List  Communicator  (PLC),  as  depicted  in  Figure  3-10,  is  the  control  center 
for  interacting  with  the  microcontroller.  The  PLC  is  used  to  bootload  the  microcontroller, 
compile  and  transfer  the  PL  to  the  microcontroller,  execute  the  PL,  start  and  stop  data  collection, 
stop  all  actions  on  the  microcontroller,  retrieve  collected  data,  and  export  the  various  signals  to 
the  base  MATLAB®  workspace. 

When  the  PLC  is  first  started,  the  Establish  Comm  button  is  the  only  option  available,  all 
others  are  grayed  out  and  non-functional.  To  establish  communications  and  bootload  the 
microcontroller,  the  user  momentarily  presses  the  hardware  Reset  button  on  the  box  and  then 
presses  the  Establish  Comm  button  on  the  PLC.  Upon  a  successful  bootload  and  execution,  the 
Establish  Comm  button  is  grayed  out  and  the  text  “Communication  Established”  appears  next  to 
it.  The  Export  PL  button  also  becomes  available. 

To  transfer  the  PL  shown  in  the  PLD  GUI  to  the  microcontroller,  the  user  presses  the 
Export  PL  button.  This  button  initiates  the  compilation  of  the  PL  into  Siemens  80C166  machine 
language  using  the  special  compiler  written  for  this  thesis.  The  compiled  code  is  then 
downloaded  to  the  microcontroller.  Upon  a  successful  download,  the  Execute  PL,  Start 
Collection,  Stop  Collection,  Stop  All,  and  Retrieve  Data  buttons  become  available,  and  the  text 
“PL  Export  Successful”  appears  next  to  the  Export  PL  button.  Execution  of  the  PL  occurs  when 
the  Execute  PL  button  is  clicked. 
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The  user  can  initiate  data  collection  by  entering  the  number  of  samples  to  acquire  and 
indicating  which  clock  to  use  as  the  sample  trigger.  When  the  Start  Collection  button  is  pressed, 
data  collection  begins.  Likewise,  the  user  can  halt  data  collection,  whether  initiated  by  the  Start 
Collection  button  or  by  the  execution  of  the  PL,  by  clicking  the  Stop  Collection  button. 

After  data  collection  is  complete  or  halted  by  the  user,  the  Retrieve  Data  pushbutton  is 
used  to  upload  collected  data  from  the  microcontroller.  After  selecting  (checking)  and  naming 
(manually  typing)  the  desired  signals,  pressing  the  Export  Data  button  causes  the  designated 
signals  to  be  assigned  in  the  MATLAB®  workspace  as  their  user  provided  names. 

As  labeled,  the  Stop  All  button  disables  all  interrupt  service  routines  within  the 


microcontroller,  including  data  collection. 


Figure  3-10  Process  List  Communicator  (PLC)  Screen  Shot. 
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3.5.3  Microcontroller  “User”  Code 


The  “user”  code  is  the  result  of  compiling  the  PL.  This  code  is  Siemens  80C166  machine 
language  and  is  ready  for  download  to  the  microcontroller.  However,  the  user  code  is  not  stand¬ 
alone;  it  depends  on  the  resident  code  for  certain  operations. 

Two  MATLAB®  m-functions,  plcompile.m  and  plcompile2.m,  perform  the  compilation. 
These  two  files  use  code  templates  and  place  the  proper  values  and  addresses  in  their  respective 
positions  to  create  Code  Fragments  (CFs).  The  CFs  are  grouped  into  Code  Segments  (CSs),  with 
each  CS  representing  the  action  to  be  taken  when  the  respective  trigger  occurs.  For  example,  the 
EMIT  CS  contains  the  code  to  be  executed  when  the  user  presses  the  Execute  PL  button  on  the 
PLC  GUI.  This  code  structure  is  indicated  in  Figure  3-11.  If  no  STEL-1032  register  contents  are 
modified  within  a  CS,  the  data  portion  for  that  CS  does  not  exist.  See  Appendix  D  for  a  more 
complete  outline  of  this  code. 
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3.6  System  Evaluation  Metrics 

The  metrics  introduced  in  this  section  are  used  in  Chapter  4  to  test  the  system.  The  main 
criteria  for  this  system  are  1)  valid,  reliable  code  production  and,  2)  efficiency.  The  metrics 
include  the  execution  time  of  all  the  user  code  components  such  that  the  user  can  calculate  how 
long  a  given  interrupt  service  routine  should  take.  The  maximum  sampling  rate  is  also 
determined.  Finally,  the  generation  of  several  codes  is  demonstrated. 

3.7  Summary 

This  chapter  provides  an  overview  of  the  Stanford  Telecom  STEL-1032’s  functionality, 
inputs,  and  outputs;  the  microcontroller  selection;  the  hardware  design;  the  software  design;  and 
the  system  evaluation  metrics.  The  STEL-1032  contains  three  32-stage,  independent  pseudo¬ 
random  number  generators.  The  Rigel  Corp.  RMB-166  microcontroller  was  selected  based  on 
criteria  such  as  performance  capabilities  and  cost-to-performance  ratio.  The  circuits  added  to  the 
previous  hardware  allow  the  RMB-166  to  control  the  STEL-1032.  Software  control  is  provided 
by  three  MATLAB®  Graphical  User  Interfaces,  the  microcontroller  “resident”  code,  and  the 
microcontroller  “user”  code.  Finally,  most  of  the  system  evaluation  metrics  are  time  based. 
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CHAPTER  4 


SYSTEM  TEST  RESULTS  AND  ANALYSIS 


4.1  Introduction 

The  previous  chapters  presented  the  problem  statement,  the  relevant  background 
information,  and  the  system  design  methodology.  In  this  chapter,  the  system  performance  is 
evaluated.  The  two  main  facets  of  performance  are  demonstrated:  1)  the  system  can  easily  and 
reliably  generate  sequences,  and  2)  all  Code  Fragment  (CF)  execution  times  are  measured.  By 
knowing  the  CF  execution  times,  the  user  can  calculate  the  total  execution  time  of  an  Interrupt 
Service  Routine  (ISR)  and,  thus,  the  maximum  rate  at  which  the  ISR  can  be  performed. 


4.2  System  Functionality  Validation 

Before  any  sequence  can  be  produced,  the  Stanford  Telecom  STEL-1032’s  registers  must 
be  appropriately  set  and  the  corresponding  coders  must  be  loaded.  Figure  4-1  is  a  screenshot 
from  a  LeCroy  9324  Digital  Storage  Oscilloscope  which  illustrates  a  32-bit  register  being  set  in 
four  8-bit  segments  by  the  WRN  signal  and  then  the  Coder  being  loaded  with  the  LOAD  signal. 
The  Process  List  (PL)  associated  with  generating  this  plot  is  given  in  Table  4-1. 


Table  4-1  Functionality  Test  Process  List. 


INIT 

Set 

POLYO 

13 

Octal 

INIT 

Set 

FILLO 

7 

Octal 

INIT 

Set 

EPOCHO 

2 

Octal 

INIT 

Enable_Int 

EPOCHO 

INIT 

Load 

CODERO 

EPOCHO 

Set 

FILLl 

34 

Octal 

EPOCHO 

Load 

CODERl 

Upon  an  EPOCHo,  the  INITi  register  is  set  to  348  and  Coder]  is  immediately  loaded  by  the 
LOAD]  signal,  as  designated  by  the  user. 
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This  one  figure  indicates  the  proper  operation  of  many  project  parts:  1)  the  user  is  able  to 
build  a  PL  using  the  Process  List  Developer  (PLD),  2)  the  Process  List  Communicator  (PLC) 
properly  bootloads  and  communicates  with  the  hardware,  3)  the  “resident”  microcontroller  code 
is  able  to  download  and  execute  a  PL,  4)  the  PL  Compiler  generates  correctly  functioning  code, 
5)  the  Control  Line  Interface  circuit  works,  and  6)  the  Address  Decoder/Register  Write  Control 
circuit  operates.  These  traces  could  not  occur  without  the  proper  operation  of  all  project  parts. 


Figure  4-1  32-Bit  Register  Set  Followed  by  LOAD  Pulse. 

4.3  Code  Production  Validation 

Proper  code  production  is  verified  by  the  successful  production  of  a  Global  Positioning 
System  (GPS)  Coarse/Acquisition  (C/A)  code,  a  truncated  code,  and  a  short  Jet  Propulsion 
Laboratory  (JPL)  ranging  code.  Several  plots,  as  well  as,  the  Process  Lists  used  to  generate  them, 
appear  in  the  next  three  subsections. 


4-2 


4.3.1  Global  Positioning  System  (GPS)  Coarse/Acquisition  (C/A)  Code 
Production  of  the  GPS  satellite  number  31  C/A  code  is  possible  using  the  configuration 
shown  in  Figure  3-7  and  Figure  3-8  in  Sections  3.5.2. 1  and  3.5.2.2,  respectively.  The  PL  is 
repeated  here  in  Table  4-2.  All  three  coders  are  clocked  synchronously. 


Table  4-2  PL  to  Produce  Coarse/Acquisition  Code  for  Satellite  Number  31. 


INIT 

Set 

POLYO 

3515 

Octal 

INIT 

Set 

FILLO 

1777 

Octal 

INIT 

Set 

MUXO 

3 

Dec 

INIT 

Set 

EPOCHO 

1777 

Octal 

INIT 

Set 

POLYl 

3515 

Octal 

INIT 

Set 

FILLl 

1777 

Octal 

INIT 

Set 

MUXl 

8 

Dec 

INIT 

Set 

POLY2 

2011 

Octal 

INIT 

Set 

FILL2 

1777 

Octal 

INIT 

Set 

MUX2 

10 

Dec 

INIT 

Set 

MIXCODE 

10010110 

Binary 

INIT 

Load 

CODER_012 

Although  not  the  most  efficient  means  of  producing  C/A  code,  this  intentionally  inefficient  setup 
demonstrates  the  use  of  all  three  Coders  and  the  Mixcode.  The  1023-chip  sequence  was 
generated  at  a  rate  of  200  kcps  and  collected  by  the  microcontroller.  In  all  cases,  the  collected 
signal  matched  the  expected  output.  The  beginning  of  the  sequence  is  shown  in  Figure  4-2.  The 
top  trace,  the  C/A  code,  is  the  exclusive-or  (modulo-2  sum)  of  the  other  three  coder  output  traces. 
It  should  be  noted  that  the  exclusive-or  output  is  delayed  by  one  clock  cycle. 


4.3.2  Truncated  Code 

Reloading  the  Coder  before  the  full  sequence  length  is  generated  results  in  a  truncated 
code.  The  CODEo  output  shown  in  Figure  4-3  is  such  a  code  produced  by  the  PL  of  Table  4-3. 
The  generator  polynomial  238  would  normally  produce  a  maximal  length  sequence  (m-sequence) 
15  bits  in  length.  However,  in  this  setup  the  code  restarts  after  only  12  clock  cycles  due  to  the 
LOADo  pulse  of  the  EPOCHq  Interrupt  Service  Routine  (ISR)  as  shown  by  the  PL  in  Table  4-3. 
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The  Stanford  Telecom  STEL-1032  has  the  capability  to  perform  this  vary  action  on  its  own,  but 
for  demonstration  purposes  an  ISR  is  used. 


C/A 


Codec 


Codei 


Code2 


0.000105  0.001105  0.002105  0.003105  0.004105  0.005105 
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Figure  4-2  GPS  C/A  Code  Number  3L 


Time  (s) 


Figure  4-3  Truncated  Code  Production, 


Table  4-3  Process  List  for  Truncated  Code  Test. 


INIT 

Set 

POLYO 

23  Octal 

INIT 

Set 

FILLO 

7  Octal 

INIT 

Set 

EPOCHO 

2  Octal 

INIT 

Enable_Int 

EPOCHO 

INIT 

Load 

CODERO 

EPOCHO 

Load 

CODERO 
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Figure  4-4  depicts  the  inherent  delay  between  the  EPOCHo  signal  and  the  ISR  response. 
In  this  case,  the  delay  is  approximately  1.93  |J.s.  The  sloped  appearance  of  the  EPOCHo,  CODEo, 
and  CLKo  traces  is  due  to  averaging  several  traces  on  the  oscilloscope.  Averaging  produces  a 
sloped  transition  because  the  Coder  clock  signal,  in  this  case  CLKo,  and  the  microcontroller  clock 
are  uncorrelated  and,  thus,  timing  jitter  occurs. 


Time  (s) 


Figure  4-4  Close  up  of  Truncated  Code  Signals. 

4.3.3  Jet  Propulsion  Laboratory  (JPL)  Ranging  Code 

For  demonstration  purposes,  the  PL  shown  in  Table  4-4  generates  a  code  having  a  length 
equal  to  the  product  of  the  component  code  lengths.  In  this  case,  the  component  codes  have 
lengths  of  2^  -  1  (3)  and  2^-1  (7)  which  are  relatively  prime,  as  is  required  for  the  multiplicative 
length  behavior  to  occur.  Thus,  the  composite  code  resulting  from  the  modulo-2  addition  of  the 
two  codes  has  a  length  of  21  chips  (or  bits).  Two  periods  of  the  composite  code  are  shown  in 
Figure  4-5  where  the  top  trace  (XORoi)  is  the  composite  code,  the  middle  two  are  the  component 
codes,  and  the  bottom  trace  is  the  clock.  The  composite  code  is  delayed  by  one  clock  cycle  due 
to  operational  characteristics  of  the  STEL-1032.  While  such  a  short  code  generated  in  this 
manner  has  little  practical  purpose,  correct  operation  of  the  hardware  is  clearly  demonstrated. 
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Table  4-4  Addition  of  Relatively  Prime  Length  Sequences. 


INIT 

Set 

POLYO 

13 

Octal 

INIT 

Set 

FILLO 

7 

Octal 

INIT 

Set 

EPOCHO 

7 

Octal 

INIT 

Set 

POLYl 

7 

Octal 

INIT 

Set 

FILLl 

3 

Octal 

INIT 

Set 

EPOCHl 

3 

Octal 

INIT 

Load 

CODER_0_1 

Figure  4-5  Modulo-2  Addition  of  Codes  with  Relatively  Prime  Lengths. 


4.4  System  Timing  Tests 

The  timing  tests  are  performed  by  specifying  an  ISR  triggered  on  the  CLKo  signal  and 
then  determining  the  maximum  clock  rate  at  which  the  ISR  can  remain  synchronized  with  the 
clock.  By  adding  various  Code  Fragments  (CFs)  and  reestablishing  the  maximum  synchronizable 
clock  rate,  the  execution  time  of  the  additional  CF  can  be  calculated.  The  baseline  ISR  contains 
the  code  for  one  “Load”  line  in  the  PL. 

To  determine  the  maximum  clock  rate,  an  oscilloscope  display,  such  as  that  shown  in 
Figure  4-6  with  the  Load  signal  as  the  sweep  trigger,  is  observed  while  the  signal  generator  clock 
rate  is  slowly  increased.  When  the  ISR  cannot  stay  synchronized  with  the  clock  rate,  the  clock 
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trace  begins  to  drift.  The  frequency  just  below  that  at  which  “lock”  is  broken  indicates  the 
maximum  ISR  frequency  and  is  recorded  as  such. 


Time  (s) 


Figure  4-6  LOAD  Pulses  Shown  with  Clock  Signal 


Table  4-5  Timing  Data  for  **  Non-Register”  Code  Fragments. 


ISR  Process  List  Code 

Maximum  Clock  Rate  (kHz) 

CLKO  Load  CODER  1 

400.0 

CLKO  Load  CODERl 

CLKO  Load  CODERl 

333.3 

CLKO  Load  CODERl 

CLKO  Load  CODERl 

CLKO  Load  CODERl 

CLKO  Load  CODERl 

CLKO  Load  CODERl 

222.2 

CLKO  Enable_INT  EPOCHl 

CLKO  Load  CODERl 

333.3 

CLKO  Enable_E^  EPOCHl 

CLKO  Enable_INT  EPOCHl 

CLKO  Enable_INT  EPOCHl 

CLKO  Enable_INT  EPOCHl 

CLKO  Load  CODERl 

222.2 

CLKO  Disable_INT  EPOCHl 

CLKO  Load  CODERl 

333.3 

CLKO  Start_Collect  CLKO 

CLKO  Load  CODERl 

129.0 

CLKO  Start_Collect  CLKl 

CLKO  Load  CODERl 

117.6 

CLKO  Start_Collect  CLK2 

CLKO  Load  CODERl 

108.0 
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The  data  in  Table  4-5  were  acquired  in  this  fashion  for  the  CFs  which  do  not  change  any 
STEL-1032  registers  (thus  the  “non-register”  nomenclature).  Likewise,  data  listed  in  Table  4-6 
were  collected  for  CFs  which  change  a  STEL-1032  register  (thus  the  “register”  designation). 


Table  4-6  Timing  Data  for  “Register”  Code  Fragments. 


ISR  Process  List  Code 

Maximum  Clock  Rate  (kHz) 

CLKO  Set  POLYl 

CLKO  Load  CODERl 

153.8 

CLKO  Set  POLYl 

CLKO  Set  POLYl 

CLKO  Load  CODERl 

105.2 

CLKO  Set  POLYl 

CLKO  Set  POLYl 

CLKO  Set  POLYl 

CLKO  Set  POLYl 

CLKO  Set  POLYl 

CLKO  Load  CODERl 

54.0 

CLKO  Set  MUXl 

CLKO  Load  CODERl 

235.2 

CLKO  Set  MUX  1 

CLKO  Set  MUX  1 

CLKO  Set  MUXl 

CLKO  Set  MUXl 

CLKO  Set  MUXl 

CLKO  Load  CODERl 

137.9 

4.5  Code  Fragment  Execution  Time  Calculation 

Using  the  frequencies  listed  in  the  two  tables  above,  the  execution  time  for  each  type  of 
CF,  Tcf,  is  calculated  based  on  the  change  in  maximum  frequency  when  additional  CFs  are  added 
to  the  base  CF,  or 


T  =■ 

^CF 


1 


n 


1 


1 


(4-1) 


\  fnCF  fee  J 

where  n  is  the  number  of  occurrences  of  the  test  CF,  f„cF  is  the  maximum  frequency  with  n  test 
CFs  included,  and  fsc  is  the  m2iximum  frequency  of  the  base  CF.  The  purpose  of  testing  with 
both  a  single  test  CF  and  multiple  test  CFs  is  to  verify  time  linearity,  as  should  be  the  case. 
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Using  Eq.  (4-1),  the  various  Tcf  values  are  found  as  listed  in  Table  4-7.  The  calculated 
times  agree  with  theoretical  values  when  the  CF  machine  language  and  the  Siemens  80C166 
internal  operations  are  considered. 


Table  4-7  Code  Fragment  Execution  Times. 


Code  Fragment 

Execution  Time  (|j.s) 

Set  a  32-bit  register 

Tset32  =  3.0 

Set  a  5  or  8-bit  register 

Tseis  =  0.75 

Load  a  single  Coder 

TsLoad  =  0.5 

Load  multiple  Coders 

TMLoad  =1.0 

Enable  an  Interrupt  Service  Routine 

T^Enablelnt  =  0.5 

Disable  an  Interrupt  Service  Routine 

'I' Disableint  —  0.5 

Start  CLKo  Data  Collection 

'^StartCollectO  ~  5.25 

Start  CLKi  Data  Collection 

TstartCollectI  =  6.0 

Start  CLK2  Data  Collection 

T'startCollect?  —  6.75 

Stop  Data  Collection 

TstouCollect  =0.5 

“Non-register”  Interrupt  overhead 

Tf^RIntOverhead  —  2.0 

“Register”  Interrupt  overhead 

T' RIntOverhead  ’“3.0 

The  TNRintoverhead  and  TRimoverhead  times  are  determined  by  the  following  two  equations. 


RIntOverhead 


fRBC 


-T  -T 

^SLoad  ^Set% 


(4^2) 


e/ 


^  NRIntOverhead  ^  SLoad 

Jnrbc 


(4-3) 


where  /rbc  is  the  maximum  rate  for  a  CF  consisting  of  a  single  Coder  Load  and  an  8-bit  register 
Set  andfsKBc  is  the  maximum  rate  for  a  CF  consisting  of  a  single  Coder  Load. 


4.6  Code  Segment  Execution  Time  Calculation 

Using  the  times  listed  in  Table  4-7,  the  execution  time  of  a  Code  Segment  (CS),  or  the 
CFs  associated  with  an  Interrupt  Service  Routine  (ISR),  can  be  calculated.  Thus,  the  maximum 
rate  at  which  a  particular  ISR  can  successfully  function  is  determined.  The  equation  for 
calculating  the  CS  execution  time,  Tcs,  in  microseconds  is 
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^ci  =  2  +  /?  +  3A^^„32  +  0.75  +  03( 

^ stood  ■*■  ^ EnabMm  ^Duahklot  ^ SlopDauiCollect) 
■*■  ^ MLoad  ^■^^^SlanCotleclO  ^ ^ SlanColkal  ■*"  ^ ^ SlartCoUecl2 

where  /?  =  1  if  {Nsem  +  Nsets)  >  0, 0  otherwise, 

Nseis  is  the  number  of  5  or  8-bit  registers  set, 

Nset32  is  the  number  of  32-bit  registers  set, 

NsLoad  is  the  number  of  single  Coder  loads  performed  (generally  0  or  1), 
N/nLoad  is  the  number  of  multiple  Coder  loads  performed  (generally  0  or  1), 
NEnabieini  is  the  number  of  Interrupts  enabled, 

Noisabieint  is  the  number  of  Interrupts  disabled, 

NstopDaiaCoiiect  is  the  number  of  Stop  Collects  issued, 

NstartCoUect  =  1  if  Clocko  data  collection  is  initiated,  0  otherwise, 

NstartCoiiecti  =  1  if  Clocki  data  collection  is  initiated,  0  otherwise,  and 
NstartCoiiect2  =  1  if  Clock2  data  collection  is  initiated,  0  otherwise. 

It  follows  that  the  maximum  ISR  rate  is 


f CS  rri 


(4-5) 


when  Tcs  is  converted  to  seconds. 


4.7  Maximum  Data  Collection  Rate 

To  determine  the  maximum  possible  data  collection  rate  with  no  other  ISRs  active, 
Codero  was  configured  to  produce  a  fourth  order  maximal  length  sequence.  While  incrementally 
increasing  the  code  clock  rate,  or  chip  rate,  31,000  data  samples  were  obtained  at  each  clock  rate. 
The  collected  data  was  compared  to  the  expected  result.  A  point  of  failure,  i.e.,  the  collected  code 
sequence  is  invalid,  was  reached  at  a  340  kHz  clock  rate.  Therefore,  the  maximum  recommended 
code  clock  rate  for  data  collection  purposes  is  320  kHz. 

This  figure  is  only  valid  when  no  other  ISR  routines  are  active.  Any  other  ISR  activity 
will  dramatically  affect  the  maximum  data  collection  rate.  It  should  be  noted  that  the  designated 
clock  (CLK)  signal  used  for  data  collection  triggering  cannot  be  used  for  any  other  ISR  purpose. 

4.8  Summary 

The  test  results  shown  in  this  chapter  demonstrate  the  proper  operation  of  the  integrated 
software  and  hardware  systems  by  exhibiting  the  generation  of  several  test  codes.  The  generation 
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of  the  test  codes  confirms  that  Process  Lists  are  correctly  compiled  and  downloaded  to  the 
microcontroller  and  that  the  microcontroller  properly  controls  the  Stanford  Telecom  STEL-1032. 
Tests  revealed  a  maximum  data  sampling  (collection)  rate  of  320  kHz  when  no  other  Interrupt 
Service  Routines  (ISRs)  are  active.  All  required  Code  Fragment  execution  times  were 
determined  so  that  the  user  may  calculate  the  execution  time  of  any  given  Code  Segment. 
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CHAPTERS 


CONCLUSIONS  AND  RECOMMENDATIONS 

5.1  Conclusions 

This  thesis  addressed  adding  automated  computer  control  via  a  Graphical  User  Interface 
(GUI)  to  a  previously  built,  manually  controlled  hardware  implemented  interface  to  the  Telecom 
STEL-1032  Pseudo-Random  Number  (PRN)  Coder.  The  MATLAB®  GUI  allows  a  user  to  easily 
exploit  the  full  capabilities  of  the  STEL-1032  via  an  efficient,  repeatable  manner.  The  user  is 
able  to  save  and  recall  any  number  of  setups,  limited  only  by  available  disk  space. 

Rigel  Corporation’s  RMB-166  microcontroller  evaluation  board  serves  as  the  link 
between  the  GUI’s  running  on  the  Personal  Computer  (PC)  and  the  STEL-1032. 
Communications  occur  between  the  PC  and  RMB-166  by  way  of  a  standard  RS-232  serial 
interface.  The  microcontroller  is  initially  bootloaded  with  “resident”  code  which  handles  several 
basic  tasks  such  as  receiving  and  executing  the  “user”  code.  “User”  code  is  generated  by 
compiling  the  designated  Process  List,  created  by  the  user  with  the  Process  List  Developer  GUI 
and,  optionally,  the  Process  List  Quick  Builder  GUI.  All  communications  with  the 
microcontroller  are  handled  via  the  Process  List  Communicator  GUI. 

5.2  Recommendations  for  Future  Research 

Due  to  the  limited  scope  of  this  research,  several  areas  related  to  this  work  were  not 
addressed.  Four  areas  providing  opportunities  for  further  research  include: 

1.  Combining  a  microcontroller  and  STEL-1032  into  one  Application  Specific 
Integrated  Circuit  (ASIC)  or  Field  Programmable  Gate  Array  (FPGA). 

2.  Further  optimization  of  the  Process  List  Compiler 
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3.  Further  investigation  into  using  the  Siemens  80C166  Peripheral  Event  Controller 
(PEC)  as  the  data  collection  agent 

4.  Modifying  the  microcontroller  code  to  use  the  RMB-166’s  full  256  kbytes  of 
memory 

A  replacement  is  necessary  for  the  Stanford  Telecom  STEL-1032  as  it  has  been  out  of 
production  for  several  years.  By  implementing  a  microcontroller  and  a  STEL-1032  on  a  single 
ASIC  or  FPGA,  many  performance  issues  can  be  greatly  improved.  For  example,  by  having 
32-bit  data  paths  (or  larger),  the  Coder  phase  could  be  changed  extremely  quickly.  The  hardware 
could  be  optimized  to  allow  fast  access  to  the  various  registers,  providing  both  greater  and 
quicker  control  options.  The  length  of  the  Linear  Shift  Feedback  Registers  could  also  be 
expanded. 

Further  optimization  of  the  Process  List  Compiler  could  include  such  issues  as  only 
changing  the  minimum  number  of  8-bit  register  chunks  as  deemed  necessary.  For  instance,  if 
only  the  16  least  significant  bits  of  the  Codero  MASK  register  are  ever  used  by  the  Process  List, 
the  16  most  significant  bits  do  not  need  to  be  set  by  any  ‘Set  PolyO”  Process  List  Items. 

Using  the  80C166’s  PEC  would  effectively  increase  the  maximum  data  collection  rate. 
Expanding  the  microcontroller’s  code  to  use  the  256  kbytes  of  memory  would  allow  for  more 
data  samples  to  be  taken. 
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APPENDIX  A 


COMMONLY  USED  ACRONYMS,  TERMS,  AND  SYMBOLS 


CF . Code  Fragment:  part  of  CS  related  to  one  Process  List  Item 

CS . Code  Segment:  contains  CFs  related  to  one  ISR 

GUI . Graphical  User  Interface 

ISR . Interrupt  Service  Routine 

LFSR . Linear  Feedback  Shift  Register 

m-sequence . Maximal  length  binary  PR  sequence 

PC . Personal  Computer 

PL . Process  List 

PLC . Process  List  Communicator 

PLD . Process  List  Developer 

PLI . Process  List  Item 

PLIB . Process  List  Item  Builder 

PLQD . Process  List  Quick  Developer 

PRN . Pseudorandom  Number 

r . Number  of  stages  in  a  LFSR 

SS . Spread  Spectrum 
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APPENDIX  B 


MATLAB®  CODE 


This  Appendix  contains  the  MATLAB®  code  for  the  Graphical  User  Interfaces  (GUIs) 
developed  for  this  thesis. 


B.l  Process  List  Quick  Builder  GUI  Code 

The  following  MATLAB®  script,  “plqb.m,”  creates  the  GUI  for  the  Process  List  Quick 

Builder.  Please  note  that  the  file  “plqb.mat”  must  also  be  available. 

function  plqb() 

%  function  plqb ( ) 

%  Process  List  Quick  Builder.  Allows  the  user  access  to 
%  all  of  the  STEL-1032's  internal  registers  on  one 
%  screen. 

load  plqb 

textFontSize  =  0.5; 

plqbtext .Units  =  'normalized'; 

plqbtext . HorizontalAlignment  =  ' lef t ' ; 

plqbtext .BackgroundColor  =  [0.8  0.8  0.8]; 

plqbtext . FontUnits  =  ' points ' ; 

plqbtext . FontSize  =  8; 

plqbtext . FontName  =  'Arial  Narrow'; 

plqbtext . Style  =  ' text ' ; 

texth  =  0.038; 

textwl  =  0.145; 

%  Properties  for  the  edit  boxes 
plqbedit . Units  =  'normalized'; 
plqbedit . HorizontalAlignment  =  'right'; 
plqbedit . BackgroundColor  =  [1  1  1] ; 
plqbedit . FontUnits  =  'points'; 
plqbedit . FontSize  =  8; 
plqbedit .FontName  =  'Arial  Narrow'; 
plqbedit . Style  =  'edit'; 
edith  =  0.04; 


%  Properties  for  the  pop  up  menus 

plqbpopup .Units  =  'normalized' ; 

plqbpopup. BackgroundColor  =  [0.75  0.75  0.75]; 

plqbpopup. FontUnits  =  'points'; 

plqbpopup . FontSize  =  8; 

plqbpopup . FontName  =  'Arial  Narrow'; 

plqbpopup . Style  =  'popupmenu'; 
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a  =  figure ( 'Units 'pixels ' ,  'Color', [0.8  0.8  0.8],  ... 

'Colormap' ,mat0,  *  Name Process  List  Quick  Builder',  ... 

' NumberTitle ' , ' of f ,  ' PointerShapeCData ’ , matl ,  ... 

' Position’ , [10  40  640  480],  ' HandleVisibility ',' callback . 

' Tag ' , ' qb ' ) ; 

b  =  uicontrol (' Parent ', a,  plqbtext,  ... 

' Position' , [0 . 013  0.95  textwl  texth] ,  ... 

' String ' , ' Coder  O',  ' Tag ' , ’ StaticTextG ' ) ; 

b  =  uicontrol (' Parent ', a,  plqbtext,  ... 

' Position' , [0 . 025  0.9  textwl  texth],  ... 

' String ',' Polynomial  in  Octal’,  ' Tag ' , ' polyOtext ' ) ; 
b  =  uicontrol ( 'Parent' ,a,  plqbtext,  . . . 

’ Position' , [0 . 025  0.85  textwl  texth],  ... 

' String ',' Initial  Fill  in  Octal',  ' Tag ' , ' f illOtext ' ) ; 
b  =  uicontrol (' Parent a,  plqbtext,  ... 

'Position' , [0.025  0.80  textwl  texth],  ... 

' String ' , ' Epoch  register ' ,  ' Tag ' , ' epochOtext ' ) ; 

b  =  uicontrol (' Parent ', a,  plqbtext,  ... 

' Position' , [0 . 025  0.75  textwl  texth],  ... 

' String ' , ' Counter ’ ,  ' Tag ' , ' counterOtext ' ) ; 

b  =  uicontrol (' Parent a,  plqbtext,  ... 

' Position' , [0 . 349933  0.9  0.10  texth],  ... 

' String ' , ' Phase  Mux ' ,  ' Tag ' , ' phase_mux0text ' ) ; 

b  =  uicontrol (' Parent ', a,  plqbtext,  ... 

’ Position ',[ 0 . 349933  0.855  0.2  texth],  ... 

'String' , 'Reload  Counter  on' ,  'Tag' , ' StaticTextV ' ) ; 
b  =  uicontrol (' Parent ', a,  plqbtext,  ... 

'Position' , [0.572005  0.807  0.0363392  texth],  ... 

' String ' , ' or ' ,  ' Tag ’ , ' StaticTextS ' ) ; 

b  =  uicontrol (' Parent ', a,  plqbtext,  ... 

' Position' , [0 . 349933  0.76  0.2  texth],  ... 

' String ',' Reload  PRN  generator  on',  ' Tag ' , ' StaticText9 ' ) ; 
b  =  uicontrol (' Parent ', a,  plqbtext,  ... 

'Position' , [0.572005  0.712  0.0363392  texth],  ... 

' String ' , ' or ' ,  ' Tag ’ , ' StaticTextS ' ) ; 

b  =  uicontrol (' Parent ', a,  plqbtext,  ... 

' Position ',[ 0 . 025  0.55  textwl  texth],  ... 

' String ' , ' Polynomial  in  Octal ' ,  ' Tag ' , ' polyl text ' ) ; 

b  =  uicontrol {' Parent ', a,  plqbtext,  ... 

' Position' , [0 . 025  0.5  textwl  texth],  ... 

' String ',' Initial  Fill  in  Octal',  ' Tag ' , ' f illltext ' ) ; 
b  =  uicontrol (' Parent ', a,  plqbtext,  ... 

' Position ',[ 0 . 025  0.45  textwl  texth],  ... 

' String ' , ' Epoch  register ' ,  ' Tag ' , ' epochltext ' ) ; 

b  =  uicontrol ( ' Parent ' , a,  plqbtext,  . . . 

' Position ',[ 0 . 025  0.4  textwl  texth],  ... 

' String ' , ' Counter ' ,  ' Tag ' , ' counterltext ' ) ; 

b  =  uicontrol {' Parent ', a,  plqbtext,  ... 

' Position' , [0 . 349933  0.55  0.10  texth],  ... 

' String ' , ’ Phase  Mux ' ,  ' Tag ' , ' phase_muxltext ’ ) ; 

b  =  uicontrol (' Parent ', a,  plqbtext,  ... 

' Position ',[ 0 . 349933  0.505  0.2  texth],  ... 

'String' , 'Reload  Counter  on' ,  'Tag' , ' StaticText7 ’ ) ; 
b  =  uicontrol (' Parent ', a,  plqbtext,  ... 

'Position' , [0.572005  0.457  0.04  texth],  ... 
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‘ string ' , ' or ' ,  ' Tag ' , ’ StaticTextS ’ ) ; 

b  =  uicontrol (' Parent a,  plqbtext,  ... 

•  Position' ,[ 0 . 349933  0.41  0.2  texth] ,  ... 

' String Reload  PRN  generator  on',  ' Tag ’ , ' StaticText9 ' ) 
b  =  uicontrol (' Parent a,  plqbtext,  ... 

’ Position' , [0 . 572005  0.362  0.04  texth] ,  ... 

’ String ' , ' or ' ,  ’ Tag ' , ' StaticTextS ' ) ; 

b  =  uicontrol (' Parent ', a,  plqbtext,  ... 

' Position ',[ 0 . 025  0.20  textwl  texth],  ... 

’ String Polynomial  in  Octal',  ' Tag ',' poly2 text ') ; 
b  =  uicontrol (' Parent ', a,  plqbtext,  ... 

’ Position ',[ 0 . 025  0.15  textwl  texth],  ... 

' String' ,' Initial  Fill  in  Octal',  ' Tag ',' fill2 text ') ; 
b  =  uicontrol (' Parent a,  plqbtext,  ... 

' Position ',[ 0 . 025  0.1  textwl  texth],  ... 

' String ',' Epoch  register',  ' Tag epoch2 text ') ; 
b  =  uicontrol (' Parent ', a,  plqbtext,  ... 

' Position ',[ 0 . 025  0.05  textwl  texth],  ... 

' String ' , ' Counter ' ,  ' Tag ' , ' counter 2 text ' ) ; 

b  =  uicontrol (' Parent ’, a,  plqbtext,  ... 

' Position ',[ 0 . 344549  0.20  0.10  texth],  ... 

' String ' , ' Phase  Mux ' ,  ' Tag ' , ' phase_mux2 text ' ) ; 

b  =  uicontrol (' Parent ', a,  plqbtext,  ... 

' Position ',[ 0 . 344549  0.155  0.2  texth],  ... 

' String ' , ' Reload  Counter  on ' ,  ' Tag ' , ' StaticTextV ' ) ; 

b  =  uicontrol (' Parent ', a,  plqbtext,  ... 

•Position' , [0.572005  0.121779  0.0363392  texth],  ... 

' String ’ , ' or ' ,  ' Tag ' , ' StaticTextS ' ) ; 

b  =  uicontrol (' Parent ', a,  plqbtext,  ... 

' Position ',[ 0 . 344549  0.06  0.2  texth],  ... 

' String ', ‘ Reload  PRM  generator  on',  ’ Tag ' , ' StaticText9 ' ) 
b  =  uicontrol (' Parent ’, a,  plqbtext,  ... 

'Position' , [0.572005  0.04355S3  0.0363392  texth],  ... 

' String ' , ' or ' ,  ' Tag ' , ' StaticTextS ’ ) ; 

b  =  uicontrol {' Parent ', a,  plqbtext,  ... 

'Position' , [0.S10596  0.33  0.072S477  texth],  ... 

' String ' , ' 0  0  O',  ' Tag ’ , ' StaticTextS ' ) ; 

b  =  uicontrol (' Parent ’, a,  plqbtext,  ... 

'Position' , [0.810596  0.29  0.0728477  texth],  ... 

'String', '0  0  1',  ' Tag ',' StaticTextS ') ; 

b  =  uicontrol (’ Parent ', a,  plqbtext,  ... 

'Position' , [0.810596  0.25  0.0728477  texth],  ... 

' String ' , ' 0  1  O',  ' Tag ' , ' StaticTextS ' ) ; 

b  =  uicontrol (' Parent ', a,  plqbtext,  ... 

'Position' , [0. 810596  0.21  0.0728477  texth],  ... 

'String', '0  1  1',  ' Tag StaticTextS ') ; 

b  =  uicontrol (' Parent ', a,  plqbtext,  ... 

'Position' , [0.810596  0.17  0.0728477  texth],  ... 

’ String ' , ' 1  0  O’,  ' Tag ' , ' StaticTextS ' ) ; 

b  =  uicontrol (' Parent ', a,  plqbtext,  ... 

'Position' , [0.810596  0.13  0.0728477  texth],  ... 

'String', '1  0  1',  ' Tag ',' StaticTextS ’) ; 

b  =  uicontrol (’ Parent ', a,  plqbtext,  ... 

•Position' , [0.810596  0.09  0.0728477  texth],  ... 

•String', '1  1  O',  ' Tag StaticTextS ') ; 

b  =  uicontrol {' Parent ', a,  plqbtext,  ... 

'Position' , [0.810596  0.05  0.0728477  texth],  ... 
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' string ' , ' 1  1  1 ‘ ,  ' Tag ' , ' StaticTextS ' ) ; 

b  =  uicontrol (' Parent a,  plqbedit,  ... 

'Position' , [0.17  0.9  0.125  edith] ,  ' String 23 ’ ,  ' Tag ' , ' polyO ' ) ; 

b  =  uicontrol (' Parent a,  plqbedit,  ... 

■Position' , [0.17  0.85  0.125  edith],  ' String 5 ’ ,  ' Tag ' , ' f illO ' ) ; 

b  =  uicontrol ( 'Parent' ,a,  plqbedit,  . . . 

■Position' , [0.17  0.80  0.125  edith],  ' String ',' 2 ' ,  ' Tag ' , ' epochO ' ) ; 

b  =  uicontrol (' Parent ', a,  plqbedit,  ... 

' Position ',[ 0 . 17  0.75  0.125  edith],  ... 

' String' , ' 1000 ' ,  'Tag' , 'counterO ' ) ; 
b  =  uicontrol {' Parent a,  plqbedit,  ... 

■Position' , [0.469717  0.9  0.09  edith],  ... 

'  String '  ,  ’  1 '  ,  '  Tag '  ,  ’  phase_inux0  ’  )  ; 

b  =  uicontrol ( ' Parent ' , a,  plqbpopup,  . . . 

■Position' , [0.403769  0.825  0.15  0.03],  ... 

' String ' ,mat2 ,  ' Tag ' , ' counterOepoch ' ,  ' Value ',1); 

b  =  uicontrol {' Parent ’, a,  plqbpopup,  ... 

■Position' , [0.617766  0.825  0.15  0.03],  ... 

' String ’ , mat3 ,  ' Tag ' , ' counter Ocount ' ,  ' Value ’ , 1 ) ; 

b  =  uicontrol ( 'Parent' ,a,  plqbpopup,  . . . 

'Position' , [0.403769  0.73  0.15  0.03],  ... 

' String ', mat 2 ,  ' Tag ' , ' f illOepoch ' ,  ' Value 

b  =  uicontrol ( ' Parent ' , a,  plqbpopup,  . . . 

'Position' , [0.617766  0.73  0.15  0.03],  ... 

' String ' ,mat3 ,  ' Tag ' , ' f illOcount ' ,  'Value ' , 1) ; 

b  =  uicontrol (' Parent ', a,  ' Units ',' normalized ’ ,  ... 

' FontUnits ', 'normalized' ,  ' BackgroundColor ' , [ 0 . 8  0.8  0.8],  ... 

* FontSize ' , textFontSize,  ' HorizontalAlignment ' , ' lef t ’ ,  ... 

' Position' , [0 . 013  0.60  textwl  texth] ,  ' String ',' Coder  1',  ... 

' Style ' , ' checkbox ' ,  ' Tag ' , ' coderl ' ,  ... 

' Value ' ,  0 ) ; 

b  =  uicontrol (' Parent ', a,  plqbedit,  ... 

' Position ',[ 0 . 17  0.55  0.125  edith],  ' String ',' 23 ' ,  ' Tag ' , ' polyl ' ) ; 

b  =  uicontrol (' Parent ', a,  plqbedit,  ... 

' Position ',[ 0 . 17  0.5  0.125  edith],  ' String ’,' 1 ' ,  ' Tag ’ , ' f illl ' ) ; 

b  =  uicontrol (' Parent ', a,  plqbedit,  ... 

' Position ',[ 0 . 17  0.45  0.125  edith],  ' String ',' 7 ' ,  ' Tag ' , ' epochl ' ) ; 

b  =  uicontrol {' Parent ’, a,  plqbedit,  ... 

' Position ',[ 0 . 17  0.4  0.125  edith],  ' String ',' 15 ' ,  ' Tag ' , ' counterl ' ) 

b  =  uicontrol (' Parent ', a,  plqbedit,  ... 

’ Position' , [0 . 480485  0.55  0.09  edith],  ... 

' String ' , ' 1 ' ,  ' Tag ' , ' phase_muxl ' ) ; 

b  =  uicontrol ( ' Parent ' , a,  plqbpopup,  . . . 

'Position' , [0.403769  0.475  0.15  0.03],  ... 

' String ' , mat2 ,  ' Tag ' , ' counterlepoch ' ,  ' Value ' , 1 ) ; 

b  =  uicontrol ( ' Parent ' , a,  plqbpopup,  . . . 

■Position' , [0.617766  0.475  0.15  0.03],  ... 

’ String ' ,mat3 ,  ' Tag ' , ' counterlcount ' ,  ' Value ', 1 ) ; 

b  =  uicontrol ( ' Parent ' , a,  plqbpopup,  . . . 

'Position' , [0.403769  0.38  0.15  0.03],  ... 

' String ' ,mat2 ,  ' Tag ' , ' f illlepoch ' ,  ' Value ', 1); 

b  =  uicontrol ( 'Parent' ,a,  plqbpopup,  . . . 

'Position' , [0.617766  0.38  0.15  0.03],  ... 

' String ' ,mat3 ,  ' Tag ' , ' f illlcount ' ,  ' Value ' , 1) ; 
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b  =  uicontrol (' Parent ‘ , a,  ' Units normalized ' ,  ... 

' FontUnits ‘normalized* ,  ' BackgroundColor ' , [ 0 . 8  0.8  0.8],  ... 

'FontSize* , textFontSize,  ' HorizontalAlignment ' , 'left' ,  ... 

‘ Position’ ,[ 0 . 013  0.25  textwl  texth] ,  ’ String Coder  2*,  ... 

' Style ' , ' checkbox ‘ ,  ' Tag ' , ' coder2 ’ ,  ... 

‘Value ‘ ,  0) ; 

b  =  uicontrol {' Parent a,  plqbedit,  ... 

'Position* ,  [0.17  0.2  0.125  edith] ,  ' String ’,* 23  * ,  ' Tag  * , ’ poly2 * ) ; 

b  =  uicontrol ( ‘ Parent a,  plqbedit,  ... 

•Position’ , [0.17  0.15  0.125  edith],  ’ String ‘ 7 ‘ ,  ‘ Tag ' , ’ f ill2 * ) ; 

b  =  uicontrol (' Parent ', a,  plqbedit,  ... 

‘ Position' ,  [0 . 17  0.1  0.125  edith],  *  String 7 ' ,  ’ Tag  * ,  * epoch2 ’ ) ; 

b  =  uicontrol (' Parent a,  plqbedit,  ... 

' Position' , [0 . 17  0.05  0.125  edith] ,' String *,' 15 ' ,  ' Tag ' , ' counter2 * ) 

b  =  uicontrol (* Parent ', a,  plqbedit,  ... 

'  Position’ ,  [0 . 47  0.2  0.09  edith],  '  String  *,’ 2  ’  ,  '  Tag  '  ,  '  phase__mux2  '  ) 

b  =  uicontrol ( ' Parent  * , a,  plqbpopup,  . . . 

’Position' , [0.402649  0.125  0.15  0.03],  ... 

' String *, mat 2 ,  ' Tag counter2 epoch ‘ ,  ' Value ',1); 
b  =  uicontrol (' Parent ', a,  plqbpopup,  ... 

'Position' , [0.617219  0.125  0.15  0.03],  ... 

' String  * ,mat3 ,  ' Tag ’ ,  ' counter2count ’ ,  ' Value ', 1); 

b  =  uicontrol ( *  Parent ' , a,  plqbpopup,  . . . 

'Position' , [0.402649  0.03  0.15  0.03],  ... 

' String ' ,mat2 ,  ' Tag ' , ' f ill2epoch ' ,  ' Value ',1); 

b  =  uicontrol ( 'Parent' ,a,  plqbpopup,  . . . 

•Position' , [0.617219  0.03  0.15  0.03],  ... 

' String ' ,mat3 ,  ' Tag ' , ' f ill2count ' ,  ' Value ',1); 

b  =  uicontrol (' Parent ', a,  ' Units ',' normalized ' ,  ... 

' FontUnits ',' normalized' ,  ' BackgroundColor ' , [ 0 . 8  0.8  0.8],  ... 

' FontSize ', textFontSize,  ' HorizontalAlignment ',' left ' ,  ... 

' Position ',[ 0 . 835  0.375  textwl  texth],  ' String ',' Mixcode ' ,  ... 

' Style ' , ' checkbox ' ,  ' Tag ' , ' mixcode ' ,  ... 

'Value ' ,  0) ; 

b  =  uicontrol (' Parent ', a,  plqbedit,  ... 

' Position ',[0.883444  0.33  0.05  edith] , ' String ' , ' 0 ’ , . . . 

' Tag ' , ' combiner 0 ' ) ; 

b  =  uicontrol (' Parent ', a,  plqbedit,  ... 

' Position ',[ 0 . 883444  0.29  0.05  edith], 

' String ' , ' 1 ' ,  ’ Tag ' , ' combinerl ' ) ; 

b  =  uicontrol (' Parent ', a,  plqbedit,  ... 

*  HorizontalAlignment ' ,  ' right ' ,  ... 

' Position ',[ 0 . 883444  0.25  0.05  edith],  ... 

'  String '  ,  '  0  '  ,  '  Tag  ’  ,  '  coinbiner2  ’  )  ; 

b  =  uicontrol (' Parent ', a,  plqbedit,  ... 

' Position ',[ 0 . 883444  0.21  0.05  edith],  ... 

' String ' Tag ' , ' combiner3 ' ) ; 
b  =  uicontrol (' Parent ', a,  plqbedit,  ... 

' Position' , [0 . 883444  0.17  0.05  edith],  ... 

' String ' , ' 0 ' ,  ' Tag ’ , ' combiner4 ' ) ; 

b  =  uicontrol (' Parent a,  plqbedit,  ... 

' Position ',[ 0 . 883444  0.13  0.05  edith],  ... 

' String ' , ' 1 ' ,  ' Tag ' , ' combiners ' ) ; 
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b  =  uicontrol (' Parent a,  plqbedit,  ... 

' Position’ , [0 . 883444  0.09  0.05  edith] ,  ... 

‘  String  ’  ,  '  0  ’  ,  ’  Tag '  ,  '  coinbiner6  '  )  ; 

b  =  uicontrol (' Parent a,  plqbedit,  ... 

’ Position' , [0 . 883444  0.05  0.05  edith],  ... 

' String ' Tag ' , ' combinerV ' ) ; 

b  =  uicontrol (' Parent a,  'Units 'normalized' ,  ... 

'Callback' , 'plqbhelper  validate; ' ,  ... 

'Position' , [0.806623  0.686441  0.143046  0.0627119],  ... 
' String ' , ' Validate ' ,  ' Tag ' , ' Pushbuttonl ' ) ; 

b  =  uicontrol (’ Parent a,  ' Units ',' normalized ' ,  ... 

'Callback' , 'plqb2pld' ,  ... 

'Position' , [0.805298  0.610169  0.143046  0.0627119],  ... 

' String ' , ' Export  to  PLD ' ,  ’ Tag ' , ' Pushbuttonl ' ) ; 

f  =  uimenu ( ' Parent ' , a, ' Label ' , ' Workspace ' ) ; 

uimenu ( f , ' Label ' , ' Open ' , ’ Callback ' , ' plqbhelper  open ' ) ; 

uimenu ( f , ' Label ' , ' Save ' , ' Callback ' , ' plqbhelper  save ' ) ; 


B.2  Process  List  Developer  GUI  Code 

The  following  MATLAB®  script,  “pld.m”  creates  the  screen  for  the  Process  List 
Developer  developed  for  this  research.  The  files  “pld.mat”  and  “closepld.m”  must  also  be 
present. 

function  pld{plfile) 

%  function  pld(plfile) 

%  Process  List  Developer  allows  for  the  creation  and  editing  of 
%  Process  Lists  for  use  with  the  B/K  Box. 

%  If  a  file  name  is  not  passed  in,  a  blank  Process  List  is  created. 


load  pld 

global  WHENSTR  ACTIONSTR  WHATSETSTR  WHATINTSTR  WHATLOADSTR 
global  WHATCOLLECTSTR 

global  LISTH  WHENH  ACTIONH  WHATH  VALUER  BASER 
global  PLNAME  PLCOMMENT  PLEDIT  PLUNDOR  PLSAVED 


WHENSTR  = 

'CLKl 
' EPOCH2 
ACTIONSTR  = 


[  ' INIT  '  ;  ' CLKO  '  ;  ' COUNTO  ' ;  ’ EPOCHO  ' ;  ' CODED  ' 

' ; ' COUNTl  ' ; ' EPOCHl  ' ; ’ CODEl  ' ; ' CLK2  ' ; ' COUNT2 
' ; ' CODE2  ’ ; ’ MIXCODE ’ ; ' EXTRNO  ' ; ' EXTRNl  ' ; ' EXTRN2 
[  ’ Set  ' ;  ' Load  ' ; ’ Enable_Int  ' ; . 


'  Disable. 


Int 


'  ;  '  Start_Collect '  ;  '  Stop__Collect  '  ]  ; 


WHATSETSTR  =  [ 

'  POLYO 

'  FILLO 

'  EPOCHO  ' ; 

' COUNTO  ' ; 

.  .  . 

'MUXO 

'  ;  'CTLO 

' ; ' POLYl 

■ ; ' FILLl 

' ; ' EPOCHl 

/  ... 

' COUNTl 

'  ;  '  MUXl 

'  ;  '  CTLl 

'  ; ' POLY2 

’ ; ' FILL2 

7  ... 

' EPOCH2 

' ; ' COUNT2 

' ; ' MUX2 

■ ; ' CTL2 

' ; ' POLYALL 

'  ;  ... 

' INITALL 

' ; ' EPOCHAL 

' ; ' COUNTAL 

'  ;  ' MUXALL 

' ; ' CTLALL 

'  ;  ’ MIXCODE ' ]  ; 

WHATINTSTR  =  [ 

'  CLKO 

'  COUNTO  ■ ; 

'  EPOCHO  ’ ; 

■ CODEO  ■ ; 

'  CLKl  '  ; . . . 

' COUNTl 

' ; ' EPOCHl 

'  ;  ' CODEl 

' ; ’ CLK2 

■ ; ' COUNT2 

'  ;  ' EPOCH2  ' ; . 
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’ C0DE2  ' ; ‘ MIXCODE ' ; ' EXTRNO  ‘ ; ' EXTRNl  ' ; ’ EXTRN2  ' ] ; 

WHATLOADSTR  =  [ ' CODERO  ' ; ' CODERl  ' ; ’ CODER2  ’ ; ' CODER_0_1 ’ ; . . . 

'  CODER„0_2  ■  ;  '  CODER_l_2  '  ;  ’  CODER__012  ’  ]  ; 

WHATCOLLECTSTR  =  [ ' CLKO ’ ; ' CLKl ' ; ' CLK2 ' ] ; 

PLEDIT  =0;  %  Has  a  value  of  0  if  not  in  edit  mode 

PLSAVED  =1;  %  Has  a  value  of  1  if  the  current  list  has  been  saved 

a  =  f igure ( ' Color ' , [0 , 8  0.8  0,8],  ' Units ‘ points ' ,  ... 

'Colormap' ,mat0,  'Name Process  List  Developer’,  ... 

' NumberTitle ’ , ' of f ' ,  ' PointerShapeCData ' ,matl ,  ... 

' Position ', [50  30  386  385],  ' Tag ' , ' pld ' , . . . 

’ HandleVisibility ' , 'callback' ,  ' CloseReguestFcn ' , 'pldclose' ) ; 

LISTH  =  uicontrol (' Parent ', a,  ’ Units ',' points ’ ,  ... 

' BackgroundColor ',[111],  ’ FontName ' ,  *  Courier ' ,  ... 

'FontSize',  10,  ' Position ', [5  130  300  250],  ... 

' String ' , [ ] ,  ' Style ' , ' listbox ' ,  ... 

' Tag ' , 'processlistbox ' ,  ' Value ',1,  ... 

'Callback' , 'plibupdate' ) ; 
b  =  uicontrol (' Parent ', a,  ' Units ',’ points ’ ,  ... 

' Position ', [315  330  66  30],  ' String ',' Edit ' ,  ... 

’ Tag ' , ' Pushbuttonl ' ,  ' Callback ’ , ' pliedit ' ) ; 

b  =  uicontrol (' Parent ', a,  ' Units ',' points ' ,  ... 

' Position' , [315  284  66  30],  ' String ',’ Delete ' ,  ... 

' Tag ' , ' Pushbuttonl ‘ ,  ' Callback ' , ' plidel ' ) ; 

b  =  uicontrol (' Parent ', a,  ’ Units ',' points ' ,  ... 

’ Position' , [315  238  66  30],  ' String Move  Up ' ,  ... 

' Tag ’ , ' Pushbuttonl ' ,  ' Callback ' , ’ plimove  up ' ) ; 

b  =  uicontrol (' Parent ', a,  ' Units ',' points ' ,  ... 

' Position ', [315  192  66  30],  ' String ',' Move  Down',  ... 

'Tag' , 'Pushbuttonl' ,  'Callback' , 'plimove  down' ) ; 
b  =  uicontrol (' Parent ', a,  ' Units ',' points ' ,  ... 

' Position ', [315  146  66  30],  ' String ',' Done ' ,  ... 

'Tag' , 'Pushbuttonl' ,  'Callback' , 'plcomm' ) ; 

WHENH  =  uicontrol (' Parent ', a,  ' Units points ' ,  ... 

’ BackgroundColor ', [1  1  1],  ' Callback ',' plibupdate ’ ,  ... 

’ Position' , [12 .75  5  75  80],  ' String ', WHENSTR,  ... 

' Style ',' listbox ' ,  ' Tag ',' when ' ,  ' Value ',1); 

ACTIONH  =  uicontrol (' Parent a,  ' Units ',' points ' ,  ... 

' BackgroundColor ', [1  1  1],  ' Callback ',* plibupdate ' ,  ... 

'Position' , [96.5  5  75  80],  ' String ', ACTIONSTR,  ... 

' Style ' , ' listbox ' ,  ' Tag ' , ' action ' ,  'Value ' , 1) ; 

WHATH  =  uicontrol (' Parent ', a,  ' Units ', ‘points ' ,  ... 

' BackgroundColor [1  1  1],  ' Callback plibupdate ' ,  ... 

'Position' , [180.25  5  75  80],  ’ String ' ,WHATSETSTR,  ... 

' Style ' ,  ’ listbox ' ,  ' Tag ' ,  ' what ' ,  '  Value ' , 1 ) ; 

VALUER  =  uicontrol (' Parent ', a,  ' Units ',' points ' ,  ... 

'BackgroundColor' , [1  1  1] ,  ' HorizontalAlignment ' , 'right' ,  ... 

' Position' , [263  67  81  18],  ' String ',' 0 ' ,  ... 

' Style ' , ' edit ' ,  ' Tag ' , ' value ' ) ; 

BASEH  =  uicontrol (' Parent ', a,  ' Units ',' points ' ,  ... 

' BackgroundColor ', [0 . 8  0.8  0.8],  ' HorizontalAlignment ',’ left ' ,  ... 

' Position ',[ 351  67  32  15],  ' String ',' Octal ' ,  ... 

*  Style ' , ' text ' ,  ' Tag ’ ,  ' base ' ) ; 

b  =  uicontrol (' Parent ', a,  ' Units ',' points ' ,  ... 

'BackgroundColor' ,  [0.8  0.8  0.8],  ' Position ',  [15 . 75  87  62  15],  ... 

' String ’ , ' When ' ,  ' Style ' , ' text ' ,  ' Tag ‘ , ' StaticText 1 ' ) ; 

b  =  uicontrol (' Parent ', a,  ' Units ', 'points ' ,  ... 
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’ BackgroundColor ' , [ 0 . 8  0.8  0.8],  ' Position ’,[ 101 . 25  87  62  15] ,  ... 

' String ' , ' Action ' ,  ’ Style ' , ’ text ' ,  ’ Tag ' , ' StaticTextl ‘ ) ; 

b  =  uicontrol (' Parent a,  ‘ Units ‘ points ’ ,  ... 

’ BackgroundColor ' , [0 . 8  0.8  0.8],  ' Position ',[ 187 . 5  87  62  15] ,  ... 

' String ' , ' What • ,  ' Style ' , ' text ‘ ,  ' Tag ' , ' StaticTextl ' ) ; 

b  =  uicontrol (' Parent ', a,  ’ Units points ' ,  ... 

’ BackgroundColor ', [0 . 8  0.8  0.8],  ' Position ', [273  87  62  15] ,  ... 

' String ’ ,  ' Value ' ,  ' Style ' ,  *  text ' ,  ' Tag ' ,  ' StaticTextl ' ) ; 

b  =  uicontrol {' Parent a,  ' Units points ' ,  ... 

' BackgroundColor ‘ , [0 . 8  0.8  0.8],  ' HorizontalAlignment ' , ’ lef t ' ,  ... 

’ Position’ , [351  87  45  15],  ' String Base ' ,  ... 

’ Style ’ , ' text ’ ,  ' Tag ' , ’ StaticTextl ' ) ; 

b  =  uicontrol (' Parent ', a,  ' Units points ' ,  ... 

' Position' , [270  35  70  30],  ' String Add ’ ,  ... 

'Tag' , ’ AddPushbutton' ,  'Callback' , 'plinew' ) ; 
b  =  uicontrol (' Parent ' ,  a,  ’ Units points ' ,  'Style',  'frame',  ... 

' BackgroundColor ', [0 . 8  0.8  0.8],  ' Position ',[ 1  125  403  1] ) ; 

b  =  uicontrol (’ Parent ', a,  ' Units ',' points ' ,  ... 

' BackgroundColor ', [0 . 8  0.8  0.8],  ' HorizontalAlignment ',' lef t ' ,  ... 

' Position ', [15  102  200  20] ,' String Process  List  Item  Builder',  ... 
' Style ' , ' text ' ,  ' Tag ' , ' StaticTextl ' ) ; 

f  =  uimenu (' Paren' , a, ' Label ',' List ',' Accelerator L ') ; 
uimenu ( f , ' Label ' , ' Open ' , ' Callback ‘ , ' plopen ' , ' Accelerator ' , ' O ’ ) ; 
uimenu ( f , ' Label ' , ' Save ' , ' Callback ' , ' plsave ' , ' Accelerator ' , ' S ' ) ; 
uimenu (f, 'Label ' , 'Reset' , 'Separator' , 'on' , 'Callback' , 'plreset ’ , . . . 
'Accelerator' , 'R' ) ; 

uimenu ( f ,  ' Label ' ,  ' Help ' ,  ' Separator  * ,  ' on ' ,  ' Callback 
' Accelerator ' , ' H ' ) ; 

f  =  uimenu ( ' Paren ' , a, ' Label ’ , ' Comment ' ) ; 

uimenu (f, 'Label' , 'View/Edit' , 'Callback' , ' plcommentedit ' ) ; 

PLUNDOH  =  uimenu ( ' Paren ' , a , ' Label ' , ' Undo ' ) ; 

if  (nargin==l)  %  Was  a  filename  passed  in? 
plopen (plfile) ; 

else  %  If  not,  set  some  variables. 

PLNAME  =  [ ] ; 

PLCOMMENT  =  [ ] ; 

end 


B.3  Process  List  Communicator  GUI  Code 

The  following  MATLAB®  script,  “plcomm.m,”  creates  the  screen  for  the  Process  List 

Communicator  developed  for  this  research.  The  file  “plcomm.mat”  must  also  be  present. 

function  plcoinmO 
%  function  plcommO 

%  Process  List  Communicator.  Allows  the  user  to  establish 
%  communications  with  the  box,  download  the  user  program, 

%  execute  the  program,  collect  data,  retrieve  the  data,  and 
%  export  the  data  to  the  base  workspace. 


B-8 


global  PLDATABXS 
load  plcoitun 

plccheck. Units  =  'points'; 
plccheck.BackgroundColor  =  [0.8  0.8  0.8]; 
plccheck . Style  =  'checkbox'; 

plcedit .Units  =  'points'; 
plcedit . BackgroundColor  =  [1  1  1]; 
plcedit . Horizon talAlignment  =  'left'; 
plcedit . Style  =  'edit'; 

pic text .Units  =  'points'; 
plctext .BackgroundColor  =  [0.8  0.8  0.8]; 
plctext .HorizontalAlignment  =  'left'; 
plctext . Style  =  ' text ' ; 

a  =  f igure ( ' Color ' , [0 . 8  0.8  0.8],  ' Units points ' ,  ... 

' Colormap ' ,inat0 ,  ' Name Process  List  Communicator',  ... 

'NumberTitle ' , 'off ,  ' PointerShapeCData ' ,matl,  . . . 

' Position ', [200  100  380  288],  ' Tag ' , ' plcomm* , . . . 

'HandleVisibility ' , 'callback' ,  ' CloseRequestFcn ' , 'plcommclose ' ) 

b  =  uicontrol (' Parent ', a,  ' Units ', 'points ' ,  ... 

'Callback' , 'bootload' ,  ' Enable ',' on ',' Position ', [290  245  84  38] 

' String Establish  Comm',  ' Tag ' , ' ecommbutton ' ) ; 
b  =  uicontrol (' Parent ', a,  ' Units ',' points ' ,  ... 

'Callback' , ' plcommunicator  EXPORT’ ,  'Enable' , 'off , . . . 

' Position ', [290  197  84  38],  ' String ’,' Export  PL',  ... 

'Tag' , ' exportplbutton' ) ; 

b  =  uicontrol (' Parent ', a,  ' Units ',' points ' ,  ... 

'Callback' , 'plcommunicator  EXEC ,  'Enable' , 'off ,  ... 

' Position ',[ 290  149  84  38],  ' String ',' Execute  PL',  ... 

’ Tag ' , ' execplbutton ' ) ; 

b  =  uicontrol (’ Parent ', a,  ' Units ',' points ’ ,  ... 

' Callback' ,' plcommunicator  STOPCL ' ,  ’ Enable ',' of f ,  ... 

' Position’ , [290  101  84  38],  ' String ',’ Stop  Collection',  ... 

'Tag' , ' stopcollbutton ' ) ; 

b  =  uicontrol (' Parent ', a,  ' Units ’, 'points ' ,  ... 

'Callback' , 'plcommunicator  STARTCL ' ,  ' Enable of f ,  ... 

' Position' , [190  101  84  38],  ' String ',' Start  Collection',  ... 

' Tag ' , ' startcollbutton ' ) ; 
b  =  uicontrol (' Parent ', a,  ' Units ', 'points ' ,  ... 

'BackgroundColor',,  [1  1  1]  ,  'HorizontalAlignment'  ,  'right'  ,  ... 

'Position' , [190  140  40  13],  ' Style ',' edit ' ,  ... 

*  Tag ' ,  ' collect amount ' ) ; 

b  =  uicontrol (' Parent ', a,  ' Units ',' points ' ,  ... 

'BackgroundColor ', [0.752941  0.752941  0.752941],  ... 

'Position' , [231  140  44  13],  ' String ’,[' CLKO CLKl CLK2 '] ,  .. 

' Style ' , ' popupmenu ' ,  ' Tag ' , ' collectclk ' ,  ... 

'Value' ,1) ; 

b  =  uicontrol (' Parent ', a,  plctext,  ' Position ',[ 190  155  85  13],  ... 

' String ' , ’ Number  of  Samples ' ,  ' Tag ' , ’ numsamples ' ) ; 

b  =  uicontrol (' Parent ’, a,  ' Units ',' points ' ,  ... 

'Callback' , 'plcommunicator  STOPALL ' ,  ’ Enable ',' of f ,  ... 

' Position' , [290  53  84  38],  ' String ',' Stop  All ' ,  ... 
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' Tag ’ , ‘ stopallbutton ' ) ; 

b  =  uicontrol (' Parent a,  ' Units points ’ ,  ... 

’Callback' , ' plcommunicator  RETRIEVE' ,  'Enable' , 'off , 

' Position' , [290  5  84  38],  ' String Retrieve  Data',  . 

' Tag ' , ' rdatabutton ' ) ; 

b  =  uicontrol (' Parent ', a,  ' Units ', 'points ' ,  ... 

'Callback' , ' pldataextract ’ ,  'Enable' , 'off ' ,  ... 

' Position' , [160  20.4828  84  38],  ' String ',' Export  Data 

' Tag ' , ' exdat abut ton ' ) ; 

PLDATABXS ( 1 , 1 )  =  uicontrol (' Parent ', a ,  plccheck,  ... 

' Position’ , [8  230  50  13],  ' String ',' CLKO ’ ,  ... 

' Tag ' , ' clkObox ' ) ; 

PLDATABXS ( 2 , 1 )  =  uicontrol (' Parent ', a ,  plccheck,  ... 

' Position ',[ 8  215  50  13],  ' String CODEO ' ,  ... 

' Tag ' , ' codeObox ' ) ; 

PLDATABXS ( 3 , 1 )  =  uicontrol (' Parent ', a ,  plccheck,  ... 
'Position' , [8  200  50  13],  ' String ',' EPOCHO ' ,  ... 

' Tag ' , ' epochObox ' ) ; 

PLDATABXS ( 4 , 1 )  =  uicontrol ( 'Parent' ,a,  plccheck,  . . . 
'Position' , [8  185  50  13],  ’ String COUNTO ' ,  ... 

' Tag ' , ’ count Obox ' ) ; 

PLDATABXS ( 5 , 1 )  =  uicontrol (' Parent ', a ,  plccheck,  ... 

' Position' , [8  170  50  13],  ' String ',' CLKl ' ,  ... 

' Tag ' , ' clklbox ' ) ; 

PLDATABXS ( 6 , 1 )  =  uicontrol (' Parent ', a ,  plccheck,  ... 
'Position' , [8  155  50  13],  ' String CODEl ' ,  ... 

’ Tag ' , ' codelbox ’ ) ; 

PLDATABXS ( 7 , 1 )  =  uicontrol (' Parent ', a ,  plccheck,  ... 
'Position' , [8  140  50  13],  ' String EPOCHl ’ ,  ... 

' Tag ’ , ' epochlbox ' ) ; 

PLDATABXS ( 8 , 1 )  =  uicontrol (' Parent ', a ,  plccheck,  ... 

’ Position' , [8  125  50  13],  ’ String ',' COUNTl ' ,  ... 

' Tag ' , ' count Ibox ' ) ; 

PLDATABXS ( 9 , 1 )  =  uicontrol (' Parent ', a ,  plccheck,  ... 
'Position' , [8  110  50  13],  ' String ',' CLK2 ' ,  ... 

' Tag ' , ' clk2box ' ) ; 

PLDATABXS ( 1 0 , 1 )  =  uicontrol (' Parent ', a,  plccheck,  ... 
'Position' , [8  95  50  13],  ' String ',' CODE2 ' ,  ... 

' Tag ' , ' code2box ' ) ; 

PLDATABXS (11, 1)  =  uicontrol (' Parent a,  plccheck,  ... 
'Position' , [8  80  50  13],  ' String EPOCH2 ' ,  ... 

' Tag ' , ' epoch2box ' ) ; 

PLDATABXS (12 , 1)  =  uicontrol (' Parent ', a,  plccheck,  ... 
'Position' , [8  65  50  13],  ' String COUNT2 ' ,  ... 

' Tag ' , ' count 2box ' ) ; 

PLDATABXS (13 , 1)  =  uicontrol (' Parent ', a,  plccheck,  ... 
'Position' , [8  50  50  13],  ' String MIXCODE ’ ,  ... 

' Tag ' , ' mixcodebox ' ) ; 

PLDATABXS ( 1 4 , 1 )  =  uicontrol (' Parent ', a,  plccheck,  ... 

' Position' , [8  35  50  13],  ' String ’,' EXTRNO ' ,  ... 

' Tag ' , ' extrnObox ' ) ; 

PLDATABXS (15 , 1)  =  uicontrol (' Parent ', a,  plccheck,  ... 
'Position' , [8  20  50  13],  ' String EXTRNl ’ ,  ... 

' Tag ' , ' extrnlbox ' ) ; 

PLDATABXS ( 1 6 , 1 )  =  uicontrol (' Parent ', a,  plccheck,  ... 
'Position' , [8  5  50  13],  ' String ‘ EXTRN2 ' ,  ... 

' Tag ' , ' extrn2box ' ) ; 
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PLDATABXS ( 1 , 2 )  =  uicontrol {' Parent a,  plcedit,  ... 

’ Position* , [60  230  75  13],  'Tag','clkOvn*); 

PLDATABXS ( 2 , 2 )  =  uicontrol (’ Parent *, a,  plcedit,  ... 

' Position [60  215  75  13],  ' Tag ' , ' codeOvn ’ ) ; 

PLDATABXS ( 3 , 2 )  =  uicontrol (' Parent ', a ,  plcedit,  ... 

' Position* , [60  200  75  13],  ’Tag','epoch0vn'); 

PLDATABXS ( 4 , 2 )  =  uicontrol {' Parent ', a,  plcedit,  ... 

' Position ',[ 60  185  75  13],  'Tag*,'count0vn'); 

PLDATABXS ( 5 , 2 )  =  uicontrol (* Parent a,  plcedit,  ... 

' Position* , [60  170  75  13],  'Tag','clklvn*); 

PLDATABXS ( 6 , 2 )  =  uicontrol (* Parent *, a,  plcedit,  ... 

*  Position* ,  [60  155  75  13],  ' Tag  * ,  * codelvn * ) ; 

PLDATABXS ( 7 , 2 )  =  uicontrol (* Parent ', a,  plcedit,  ... 

’ Position’ , [60  140  75  13],  *Tag',*epochlvn'); 

PLDATABXS ( 8 , 2 )  =  uicontrol (' Parent *, a,  plcedit,  ... 

' Position* , [60  125  75  13],  *Tag',’countlvn'); 

PLDATABXS ( 9 , 2 )  =  uicontrol (' Parent *, a,  plcedit,  ... 

' Position ’,[ 60  110  75  13],  ’Tag','clk2vn'); 

PLDATABXS ( 1 0 , 2 )  =  uicontrol (' Parent ', a,  plcedit,  ... 

' Position ', [60  95  75  13],  ’Tag','code2vn'); 

PLDATABXS ( 1 1 , 2 )  =  uicontrol (' Parent ', a,  plcedit,  ... 

' Position ’,[ 60  80  75  13],  'Tag*,'epoch2vn'); 

PLDATABXS (12 , 2 )  =  uicontrol (* Parent ’, a ,  plcedit,  ... 

*  Position ',[ 60  65  75  13],  'Tag',*count2vn'); 

PLDATABXS (13 , 2 )  =  uicontrol (* Parent ', a ,  plcedit,  ... 

*  Position ',[ 60  50  75  13],  *Tag*,'inixcodevn'); 

PLDATABXS ( 1 4 , 2 )  =  uicontrol (* Parent ', a ,  plcedit,  ... 

' Position ',[ 60  35  75  13],  'Tag',’extrn0vn'); 

PLDATABXS ( 1 5 , 2 )  =  uicontrol (* Parent *, a ,  plcedit,  ... 

' Position ’,[ 60  20  75  13],  'Tag','extrnlvn'); 

PLDATABXS ( 1 6 , 2 )  =  uicontrol (' Parent ', a ,  plcedit,  ... 

' Position *,[ 60  5  75  13],  *  Tag ' ,  * extrn2vn ’ ) ; 

b  =  uicontrol (* Parent ’, a,  plctext,  ' Position ’, [174  257  109  13],  ... 

'String*  ,  '  Coininunication  Established*  ,  ... 

' Tag ' ,  ' commest  * ,  ’ Visible  * ,  ' off  * ) ; 

b  =  uicontrol (' Parent ', a,  plctext,  *  Position ',  [174  209  109  13],  ... 

*  String* ,  ' PL  Export  Successful ' ,  ... 

*  Tag  * ,  *  expsuccess ' ,  *  Visible ' ,  ' off ’ ) ; 

b  =  uicontrol (' Parent ’, a,  plctext,  ’ Position *, [174  85  109  13],  ... 

'String* , 'Data  Collection  Complete* ,  ... 

’ Tag  * ,  ' clctcomplete  * ,  'Visible ' , ' off ' ) ; 
b  =  uicontrol (* Parent *, a,  plctext,  ' Position *,[ 8  250  45  13],  ... 

' String ' ,  *  Signal ' ) ; 

b  =  uicontrol (’ Parent ', a,  plctext,  ' Position *, [60  245  74  23],  ... 

*  String  * ,  ' Export  to  workspace  as ' ) ; 


B.4  Process  List  Compiler  Code 

The  following  MATLAB®  scripts,  “plcompile.m”  and  “plcomplile2.m,”  compile  the 

Process  List  into  Siemens  80C166  machine  language. 

function  [code,  length]  =  plcompile 
%  function  plcompile 
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%  Compiles  the  process  list  into  machine  code  to  be  downloaded 
%  to  the  microcontroller.  Retrieves  the  process  list  from,  the 
%  Process  List  Developer.  Output  is  machine  code  for  the  Siemens 
%  80C166  microcontroller. 

global  WHENH 

whenstr  =  get (WHENH, ’String’ ) ; 


%  Sets  the  start  address  of  the  compiled  Process  List 
baseaddress  =  hex2dec ( ' 05C0 ' ) ; 

%  Sets  the  jump  address  to  a  reti  in  the  code 
israddresses  =  ones (16, 1) . *1350; 

%  Maintains  the  isrCLKO  address  unless  changed  later 
israddresses (1)  =  944; 

%  Maintains  the  isrCLKl  address  unless  changed  later 
israddresses ( 5)  =  968; 

%  Maintains  the  isrCLK2  address  unless  changed  later 
israddresses ( 9 )  =  992; 

%  The  code  begins  by  resetting  the  STEL~1032 
code  =  char ([14  226  15  226]); 
length  =  4 ; 

%  Compile  the  INIT  code 

[newcode,  newel,  data,  dlength]  =  plcompile2 ( ’ INIT ' ) ; 
if  dlength  -*=  0 

daddress  =  baseaddress  +  32  +  length  +  newel  +4+2; 
daddressh  =  fix(daddress/256) ; 
daddressl  =  mod (daddress , 256 ) ; 

newcode  =  [char ([230  249  daddressl  daddressh])  newcode]; 
newel  =  newel  +  4; 

end 

code  =  [code  newcode] ;  %  Add  it  to  the  current  code 

length  =  length  +  newel;  %  Add  newcode  length  to  current  length 

code  =  [code  char ([203  0])];  %  Add  ret 

length  =  length+2 ; 

code  =  [code  data] ; 

length  =  length  +  dlength; 

isreode  =  [ ] ; 

%  Go  through  all  "Vlhen"  events  and  compile  their  respective  code 
for  i=2:17 

when  =  whenstr (i, : ) ; 

[newcode,  newel,  data,  dlength]  =  plcompile2 (when) ; 
if  dlength  0 

daddress  =  baseaddress  +  32  +  length  +  newel  +4+6; 
daddressh  =  f ix (daddress/256 ) ; 
daddressl  =  mod (daddress , 256 ) ; 

newcode  =  [char ([230  249  daddressl  daddressh])  newcode]; 
newel  =  newel  +  4; 
end 

if  newel  ~=  0 

if  dlength  --=0  %  The  ISR  does  write  data  to  the  STEL--1032 

%  32  is  to  account  for  the  isrloc’s 
israddresses (i-1) =baseaddress+length+32 ; 
isreode  =  [isreode  char([236  249]),... 
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newcode  char ([252  249  251  136])  data] ; 
length  =  length  +  newel  +  6  +  dlength; 
else  %  No  data  is  not  written  to  the  STEL-1032 
%  32  is  to  account  for  the  isrloc ' s 
israddresses (i-l) =baseaddress+length+32 ; 
isreode  =  [isreode  newcode  char([251  136])]; 
length  =  length  +  newel  +  2; 

end 

end 

end 

code  =  [code  isreode] ; 

isrloc (2 : 2 : 32 )  =  fix ( israddresses . /256 ) ;  %  Condition  the  ISR  addresses 
isrloc (1 : 2 : 31)  =  mod ( israddresses , 256) ;  %  to  the  proper  form, 

newcode  =  char ( isrloc) ; 

code  =  [newcode  code] ;  %  Put  the  ISR  addresses  at  the  beginning  of  the 

length  =  length  +32;  %  code. 


function  [code,  length]  =  setintvector (whichone ,  isrlocation) 

%  Given  which  CAPCOM  interrupt  vector  to  set  and  the  ISR  location, 

%  returns  the  code  to  do  so.  isrlocation  in  decimal. 

vectorloc  =  64  +  4* (whichone~l) ; 

isrloch  =  f ix (isrlocation/256) ; 

isrlocl  =  mod(isrlocation, 256) ; 

code  =  char ([230  249  234  0  246  249  vectorloc  0  ... 

230  249  isrloch  isrlocl  246  249  vectorloc+2  0] ) ; 
length  =  16; 


%  New  file  begins  here  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
function  [code,  length,  data,  dlength]  =  plcompile2 (whichprocess ) 

%  function  plcompile2 

%  Compiles  the  process  list  into  machine  code  to  be  downloaded 
%  to  the  microcontroller.  Retrieves  the  process  list  from  the 

%  Process  List  Developer.  Output  is  machine  code  for  the  Siemens 

%  80C166  microcontroller.  Called  by  plcompile. 

global  ACTIONSTR  WHATSETSTR  WHATINTSTR  WHATLOADSTR  WHATCOLLECTSTR 
global  LISTH 

%  setaddresses  contains  the  STEIj~103  2  register  addresses, 

%  size  of  the  register,  and  base  of  the  Process  List  value 
setaddresses  =  [0 , 4 , 8 ; 4 , 4 , 8 ; 8 , 4 , 8 ; 12 , 4 , 10 ; 16 , 1 , 10 ; 17 , 1 , 2 ;  ... 

3  2,4,8;36,4,8;40,4,8;44,4,10;48,1,10;49,1,2; .  .  . 
64,4,8;68,4,8;72,4,8;76,4,10;80,1,10;81,1,2; .  .  . 

9 6 , 4 , 8 ; 100 , 4 , 8 ; 104 , 4 , 8 ; 10 8 , 4 , 10 ; 112 , 1 , 10 ; 113 , 1 , 2 ; 128 , 1 , 2 ] ; 

currentbox  =  get (LISTH, ' String ') ;  %  Get  the  current  Process  List 

code  =  [ ] ;  data  =  [ ] ; 
length  =  0;  dlength  =  0; 

%  Eind  which  lines  to  do  in  this  pass 
linestodo  =  strmatch (whichprocess , currentbox) ' ; 
for  index  =  linestodo 
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%  Get  the  current  line  from  the  list 
current line  =  cur rentbox (index, : ) ; 

%  Parse  the  line  into  the  tokens 
[token,  currentline] =strtok (currentline) ; 

[token,  currentline] =strtok (currentline) ; 
action  =  strmatch ( token, ACTIONSTR) ; 

[token,  currentline] =strtok (currentline) ; 
switch  action 
case  1,  %  Set 

what  =  strmatch (token, WHATSETSTR) ; 
value  =  strtok (currentline) ; 
case  2 ,  %  Load 

what  =  strmatch ( token, WHATLOADSTR) ; 
case  {3,4},  %  Enable/Disable  Interrupt 

what  =  strmatch (token, WHATINTSTR) ; 
case  5,  %  Start  Collect 

what  =  strmatch ( token, WHATCOLLECTSTR) ; 
value  =  strtok (currentline) ; 
case  6,  %  Stop  Collect 

what  =  strmatch (token, WHATCOLLECTSTR) ; 
otherwise, 

disp ([ 'Warning! 1 !  Invalid  Process  List  Item  on  line 
num2str (index) ] ) ; 

end 

j  =  (action-1) *5 0+what; 
if  (j>=l)&(j<=26) 

info  =  setaddresses ( j , 1 : 3 ) ; 
if  info(2)  ==  4 

[ newc ode, newel , newdata]  =  setregister4 ( j , inf o ( 1 ) , 
base2dec (value, info (3))); 
newdlength  =  8 ; 
else 

[newc ode, newel, newdata]  =  setregisterl ( j , info (1) , 
base2dec (value, info (3 ) ) ) ; 
newdlength  =  2 ; 

end 

data  =  [data  newdata] ; 
dlength  =  dlength  +  newdlength; 
elseif  ( j>=51)5c(j<=57) 

[newc ode, newel]  =  loadprn ( j -50 ) ; 
elseif  ( j>=101)&(j<=116) 

[newc ode, newel]  =  enableint ( j -100) ; 
elseif  (j>=151)&(j<=162) 

[newc ode, newel]  =  disableint ( j -150) ; 
elseif  (j>=201)&(j<=203) 

[newc ode, newel]  =  startcollect ( j-200, str2num(value) ) 
elseif  ( j>=:251)&( j<=253) 

[newc ode, newel]  =  stopcollect ( j -250) ; 
else 

disp( j ) 

disp ([' Warning !! !  Invalid  Process  List  Item  on  line 
num2str (index) ] ) ; 
newcode  =  [  ]  ; 
newel  =  0; 

end 

code  =  [code  newcode] ; 
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length  =  length  +  newel; 

end 

function  [code, length, dataout]  =  setregister4 (setwhat ,  address,  data) 
%  function  [code, length]  =  setregister4 (address ,  data) 

%  Given  a  decimal  address  and  data,  returns  the  code  for 
%  setting  the  appropriate  STEL~1032  four  byte  register. 

%  length  contains  the  length  of  the  code, 
data  =  dec2bin(data, 32) ; 

if  (setwhat==l) | (setwhat==7) [ {setwhat==13 ) | (setwhat==19) 

%  if  (1)  %get  { f  indob  j  (  '  Tag '  ,  '  inversepoly '  )  ,  'Value  '  )  ===1) 

%  temp  =  min { find (data== ' 1 '}) ; 

%  data  =  [data (1 : temp-1)  data ( 32 : -1 : temp) ] ; 

%  end 

datal  =  bin2dec (data (24 : 31)  )  ; 
data2  =  bin2dec (data (16 : 23 ) ) ; 
data3  =  bin2dec (data ( 8 : 15 ) ) ; 
data4  =  bin2dec (data (1 : 7 )  )  ; 
else 

datal  =  bin2dec (data (25 : 32 ) ) ; 
data2  =  bin2dec (data (17 : 24)  )  ; 
data3  =  bin2dec (data (9 : 16) ) ; 
data4  =  bin2dec (data ( 1 : 8 ) )  ; 

end 

code  =  char([232  57  232  57  232  57  232  57]); 
dataout  =  char ( [address  datal  address+1  data2 . . . 

address+2  data3  address+3  data4]); 
length  =  8; 

function  [code, length, dataout ]  =  setregisterl (setwhat ,  address,  data) 
%  function  [code,  length]  setregisterl  (address ,  data) 

%  Given  a  decimal  address  and  data,  returns  the  code  for 
%  setting  the  appropriate  STEL-1032  single  byte  register. 

%  length  contains  the  length  of  the  code, 
if  (setwhat==5) | (setwhat==ll) | ( setwhat==17 ) | ( setwhat==23 ) 
data  =  data  -  1;  %  Setting  a  MUX  register;  must  account 

end  %  for  STEL--1032  offset, 

code  =  char([232  57]); 
dataout  =  char ( [address  data] ) ; 
length  =  2; 

function  [code, length]  =  loadprn (whichone) 

%  Given  which  coder (s)  to  load,  returns  the  code  and  code  length 

switch  whichone 

case  1,  %  Load  coder 0 

code  =  char ([30  226  31  226]); 
length  =  4; 

case  2,  %  Load  coderl 

code  =  char([46  226  47  226]); 
length  =  4; 

case  3 ,  %  Load  coder 2 

code  =  char([62  226  63  226]); 
length  =  4; 

case  4,  %  Load  coderO  and  1 

code  =  char ([102  226  249  255  118  226  6  0]); 
length  =  8 ; 

case  5,  %  Load  coderO  and  2 
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code  =  char ([102  226  245  255  118  226  10  0]  )  ; 
length  =  8 ; 

case  6,  %  Load  coderl  and  2 

code  =  char([102  226  243  255  118  226  12  0] ) ; 
length  =  8; 

case  7,  %  Load  coderO,  1,  and  2 

code  =  char([102  226  241  255  118  226  14  0] ) ; 
length  =  8 ; 

end 

function  [code,  length]  =  enableint (whichone) 

%  Given  which  interrupt,  returns  the  code  to  enable  it 
%  with  a  priority  as  given  in  the  intpriority  matrix. 

%  NOTE:  This  does  not  set  the  interrupt  vector  and 
%  should  not  be  done  until  the  vector  has  been  set  I 

%  Each  enabled  interrupt  MUST  have  a  different  priority, 
intpriority  =  [118,117,116,115,114,113,112,111,110,109,108,107,  .  .  . 
106,105,104,103] ; 

code  =  char([230  whichone+187  intpriority (whichone)  0] ) ; 
length  =  4; 

function  [code,  length]  =  disableint (whichone) 

%  Given  which  interrupt,  returns  the  code  to  disable  it 
code  =  char ([230  whichone+187  0  0] ) ; 
length  =  4; 

function  [code,  length]  =  stopcollect (whichone) 

%  Given  which  collection  process  to  stop,  returns  code  to  disable  it 
[code,  length]  =  disableint (4 *whichone~3 ) ; 

function  [code,  length]  =  startcollect (whichone ,  value) 

%  Given  which  collection  process  to  start  and  how  many  samples 

%  to  take,  returns  code  to  enable  it 

value  =  2*value; 

valueh  =  fix (value/256 ) ; 

valuel  =  mod (value, 256) ; 

code  =  char([230  247  valuel  valueh  230  248  whichone-1  0  202  0  30  5]); 
length  =  12 ; 


B.5  Control  Register  Tool  GUI  Code 

The  following  MATLAB®  scripts,  “setctltoolwindow.m”  and  “setctltool.m”  are  used 

an  aid  to  help  set  the  STEL-1032’s  Control  Register. 

function  setctltool (whattodo) 

%  function  setctltool (whattodo) 

%  Opens  the  Set  Control  Tool  GUI . 

%  Retrieves  the  values  when  user  is  done. 

global  VALUEH 


switch  whattodo 
case  'create'. 


setctltoolwindow;  %  Load  the  GUI 
value=get (VALUER, ' String ' ) ; 
if  ( (length (value) ==8) & 

(bin2dec (value) >=0) & 

(bin2dec (value) <=255) ) 

set(findobj (gcf , 'Tag' , ' counteronepoch' ) , 'Value' ,  ... 

bin2dec (value (1 :2))+l); 

set (f indob j (gcf, 'Tag' , ' counteroncount ' ) , 'Value' ,  ... 

bin2dec (value (3 : 4) ) +1) ; 

set (f indob j (gcf, ' Tag ' , ' f illonepoch ’ ) , 'Value ’ ,  ... 

bin2dec (value ( 5 : 6 ) ) +1 ) ; 

set (findobj (gcf, 'Tag* , ' filloncount ' ) , 'Value ' ,  ... 

bin2dec (value (7 : 8) ) +1) ; 

end 

case  ' finish ' , 

cntepoch  =  get (findobj (gcf, 'Tag' , 'counteronepoch' ) , 'Value' )-l; 
cntcnt  =  get (findobj (gcf , 'Tag' counteroncount *), 'Value ') -1; 
epochepoch  =  get ( findobj (gcf ,' Tag f illonepoch '), 'Value ') -1 ; 
epochcnt  =  get ( findobj (gcf ,' Tag filloncount '),' Value ') -1 ; 
teststring  =  [dec2bin (cntepoch, 2 )  dec2bin (cntcnt , 2 )  ... 

dec2bin (epochepoch, 2)  dec2bin (epochcnt , 2 ) ] ; 

close (gcf) 

set (VALUER, ’ String ' , teststring) ; 

end 


%  New  file  begins  here  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
function  setctltoolwindow ( ) 

%  function  setctltoolwindow { ) 

%  Relps  the  user  the  STEL-1032  Control  Registers. 

load  setctltoolwindow 

text . BackgroundColor  =  [0.8  0.8  0.8]; 

text . Style  =  ’ text ' ; 

text . RorizontalAlignment  =  'left'; 

popup .  Style  =  '  popupiuenu  '  ; 

popup. BackgroundColor  =  [0.752941  0.752941  0.752941]; 

a  =  f igure ( ' Color ' , [0 . 8  0.8  0.8],  ' Colormap ' , matO ,  ... 

'Name','CTL  Register  Tool',  ' NumberTitle ' , ' of f ' ,  ... 

' PointerShapeCData ' ,matl ,  ' Position ', [451  177  348  110],  ... 

' RandleVisibility ' ,  *  callback ' ,  ' Tag ’ ,  ' ctltool ' ) ; 

b  =  uicontrol (' Parent ', a,  popup,  ' Position ', [35  5  90  24],  ... 

'  String '  ,inat2 ,  '  Tag '  ,  '  f  illonepoch  ’  ,  'Value  '  ,  1)  ; 

b  =  uicontrol (' Parent ', a,  text,  ' Position ', [9  33  150  17],  ... 

' String ',' Reload  PRN  generator  on'); 
b  =  uicontrol (' Parent ', a,  popup,  ' Position ’,[ 161  5  90  24],  ... 

' String ' ,mat3 ,  ' Tag ' ,  *  filloncount ' ,  'Value ’ , 1) ; 

b  =  uicontrol (' Parent a,  text,  ’ Position ', [131  9.5  20  15],  ... 

'String' , ' or ' ) ; 

b  =  uicontrol (' Parent ', a,  text,  ' Position ', [133  63  20  15],  ... 

' String' , ' or ' ) ; 
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b  =  uicontrol (’ Parent a,  popup,  ' Position ’,[ 159  58  90  24],  ... 

' String ' , mat 4 ,  ' Tag ' , ' counteroncount ' ,  ' Value ' , 1 ) ; 

b  =  uicontrol (' Parent ', a,  text,  ' Position' , [9  87  150  15],  ... 

'String' , 'Reload  Counter  on' ) ; 

b  =  uicontrol (' Parent ', a,  popup,  ' Position ',[ 3 6  58  90  24],  ... 

' String ', mat5 ,  ' Tag ' , ' counteronepoch ' ,  ' Value ',1); 

b  =  uicontrol (' Parent ', a,  ' Callback' ,' setctltool  finish',  ... 
'Position' , [258  34  73  37],  ' String ',' OK ' ,  ... 

' Tag ' , ' OKPushbutton ' ) ; 


B.6  Other  Functions 

The  following  MATLAB®  scripts  are  used  by  the  previous  scripts. 

function  bootload 
%  function  boot load 

%  Bootloads  the  Microcontroller  and  executes  the  BK  software 

global  COMMH 

load  bootload 

if  is  empty ( COMMH ) 
opencomm; 

end 

res  =  portcom( 'WRITE ' ,  COMMH,  char(O)); 

incoming  =  por tcom ( ' READ ' , COMMH , 1 ) ; 

if  -isempty ( incoming) 
if  (incoming  'U') 

disp( 'Communications  Error! ' ) 

h  =  warndlg( 'Communications  Error!  Please  press  RESET  and  try 
again. ' ) ; 

return 

else 

disp( 'Communications  Established.  Downloading  software. . . ' ) 

end 

else 

disp( 'Communications  Error! ' ) 

h  =  warndlg (' Communications  Error!  Please  press  RESET  and  try 
again . ' ) ; 
return 

end 

res  =  portcom( 'WRITE ', COMMH,  bootl) ; 
res  =  portcom( ' WRITE ', COMMH,  boot2) ; 

incoming  =  portcom ( ' READ ' , COMMH, ' > ' ) ; 

res  =  portcom ( 'WRITE' ,  COMMH,  'D'); 
res  =  portcom ( 'WRITE' ,  COMMH,  boot4) ; 
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incoming  =  port com { ' READ ’ , COMMH , char (10) ) ; 
incoming  =  portcom( ' READ ’ , COMMH, ’ > ' ) ; 

res  =  portcom( 'WRITE' ,  COMMH,  ['G'  char (2)  char(O)]); 

incoming  =  portcom( ' READ ', COMMH, char ( 10 ) ) 
if  (incoming  ==  '  BK  vl . 0  Loaded') 

set ( f indobj ( ’ Tag ' , ' commest ' ) , ' Visible ’ , 'on'); 
set (findobj ( 'Tag' , ' ecommbutton ' ) , 'Enable' , 'off ) ; 
set ( findobj ( ’ Tag ' , ' exportplbutton ' ) , ' Enable ' , ’ on ' ) ; 

end 


%  New  file  begins  here  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
function  opencomm 
%  function  opencomm. 

%  Opens  the  Comm  port  and  sets  it  to  the  specified 
%  parameters , 

global  COMMH 

COMMH  =  portcom( 'OPEN' ,  'COM2',  65000,  15000); 

comstate . BaudRate  =  19200; 
comstate .ByteSize=  8; 
comstate . StopBits=  0; 

portcom( ' STATE' , COMMH,  comstate) ; 


%  New  file  begins  here  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
function  plcommclose 
%  f unc t ion  p 1 c ommc lose 

%  Called  when  the  PL  Communicator  window  is  closed. 

%  Closes  the  serial  port  and  clears  the  global  variable 
%  COMMH . 

global  COMMH 

if  -is empty (COMMH) 

eval ( [ 'portcom( ' 'CLOSE' ' , ' ,  int2str (COMMH) ,');'],''); 

end 

clear  global  COMMH  PLDATABXS 
delete (get ( 0 , ' CurrentFigure ' ) ) 


%  New  file  begins  here  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
function  plcommentedit 
%  function  plcommentedit 

%  Called  to  allow  the  user  to  edit  the  PL  Comment 
global  PLCOMMENT  PLSAVED 
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prompt= {' Enter  a  comment  for  this  configuration’}; 
title= ' Comment ' ; 
lineNo=5 ; 

temp=char ( inputdlg (prompt , title , lineNo , { PLCOMMENT) ) ) ; 
if  --isempty ( temp) 

PLCOMMENT=temp; 

end 

PLSAVED  =  0; 


%  New  file  begins  here  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
function  plcommunicator (whattodo) 

%  function  plcoinmunicator  (whattodo) 

%  Bootloads  the  microcontroller  and  executes  the  BK  software 
global  COMMH 
if  is empty (COMMH) 

disp (' Communication  has  not  been  established!’) 
return 

end 

switch  whattodo 
case  ’EXPORT', 
export PL; 
case  ' EXEC ' , 
executePL; 
case  'STOPCL', 
stopCollect; 
case  'STOPALL', 
stopAll ; 

case  ' RETRIEVE ' , 
retrieve; 
case  ’STARTCL' 
startcollect ; 

end 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
function  exportPL 
global  COMMH  PLLENGTH 

set (f indobj ( 'Tag' , ’ expsuccess ' ) , 'Visible ' , ’ off ' ) ; 

[code,  length]  =  plcompile; 

size  =  dec2hex ( length, 4 ) ; 

res  =  portcom( ’WRITE’ , COMMH,  ’X'); 

incoming  =  portcom( ' READ ’, COMMH, char ( 10 )) ; 

if  incoming  ’STPA' 

disp( 'Error  trying  to  stop  all!') 
disp(' Error  exporting  Process  List!’) 
return 

end 

res  =  portcom( 'WRITE' ,  COMMH,  ['D'  size] ) ; 
incoming  =  portcom ( ' READ ' , COMMH, char ( 10 ) ) ; 
if  incoming  'DOWN' 

disp ( ' Export  Error ! ' ) 
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return 


end 

res  =  portcom( ’WRITE' ,  COMMH,  code) ; 
incoming  =  por t com (' READ' , COMMH, char (10 )) ; 
if  (hex2dec (incoming) -hex2dec ( ' 05C0 ' ) ) ~=length 
disp(' Error  exporting  Process  List!’) 
else 

set ( f indobj { ' Tag ' , ' execplbutton ' ) , ' Enable ' , ' on ' ) ; 
set ( f indobj ( ' Tag ' , ' stopcollbutton ' ) , ' Enable ' , ' on ' ) ; 
set ( f indobj ( ’ Tag ' , ' stopallbutton ' ) , ' Enable ' , ' on ’ ) ; 
set ( f indobj ( ' Tag ’ , ' rdatabutton ' ) , ’ Enable ’ , ' on ' ) ; 
set ( f indobj ( ' Tag ' , ' s tartcollbutton ’ ) , ' Enable ' , ' on ' ) ; 
set (f indobj ( 'Tag' , 'expsuccess' ) , 'Visible' , 'on' ) ; 
PLLENGTH  =  length; 

end 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
function  executePL 
global  COMMH 

res  =  portcom (' WRITE ' ,  COMMH,  'E'); 
incoming  =  portcom ( 'READ' , COMMH, char ( 10 ) ) ; 
if  incoming  -=  'EXEC 

disp (' Error  trying  to  execute  PL!') 

end 


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
function  stopCollect 
global  COMMH 

res  =  portcom ( 'WRITE' , COMMH,  'F'); 
incoming  =  portcom ( ' READ ' , COMMH , char (10) ) ; 
if  incoming  -=  'FINC 

disp ('Error  trying  to  stop  collection') 

end 

incoming  =  portcom ( ' READ ' , COMMH, char (10)); 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
function  stopAll 
global  COMMH 

res  =  portcom ( ' WRITE ' , COMMH ,  ' X ' ) ; 

incoming  =  portcom ( ' READ ' , COMMH , char (10) ) ; 
if  incoming  'STPA' 

disp ('Error  trying  to  stop  all') 

end 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
function  retrieve 
global  COMMH  PLCDATA 

res  =  portcom ( 'WRITE' , COMMH,  'S7918'); 
incoming  =  portcom ( ' READ ' , COMMH , 8 ) ; 
size  =  hex2 dec (incoming (5 : 8) ) ; 
if  (size==0) I (size>62000) 

disp( 'No  data  retrieved. ' ) 
else 

h  =  waitbar(0, 'Retrieving  data.  Please  wait. . . ' ) ; 
chunks  =  fix (size/1000 ) ; 

PLCDATA  =  [ ] ; 
if  chunks  0 
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stepsize  =  1/chunks; 
for  i  =  1 : chunks 

incoming  =  portcom( ’READ' ,COMMH,1000) ; 

PLCDATA  =  [PLCDATA  incoming] ; 
waitbar ( stepsize*i ) ; 
end 

end 

incoming  =  port com ( ' READ ' , COMMH , char (10) ) ; 

PLCDATA  =  [PLCDATA  incoming] ; 

set ( f indobj ( ’ Tag ' , ' exdatabutton ' ) , ’ Enable ’ , ' on ' ) ; 
close (h) ; 

end 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
function  startcollect 
global  COMMH  PLLENGTH 

value  =  s tr2num( get ( f indobj ( 'Tag' , ' collectamount ' ) , 'String' ) ) ; 
whichclk  =  num2str (get ( f indobj ( ' Tag ' , ' collectclk ' ) , 'Value ')-!); 
maxsamples  =  min ( [ f ix ( { 62517-PLLENGTH) /2 )  31000]); 
if  value  >  maxsamples 

disp (' Number  of  samples  has  been  reduced  to  the  maximum  allowable.’) 
value  =  maxsamples ; 

set ( f indobj ( ' Tag ' , ' collectamount ' ) , ' String ' , num2str (value) ) ; 

end 

set ( f indobj ( ' Tag ' , ' clctcomplete ’ ) , 'Visible ' , ’ off ' ) ; 
value  =  dec2hex(value, 4) ; 

res  =  portcom( 'WRITE' ,  COMMH,  ['C  value  whichclk]); 
incoming  =  port com ( ’ READ ' , COMMH, char ( 10 ) ) ; 
incoming  =  portcom (' READ ', COMMH, char ( 10 ) ) 
set ( f indobj ( ' Tag ’ , ' clctcomplete ' ) , 'Visible ’ , ' on' ) ; 


%  New  file  begins  here  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
function  pldataextract 
%  function  pldataextract 

%  Extracts  the  various  signals  from  the  retrieved  data. 

%  Assigns  them  in  the  base  workspace  as  the  specified 
%  variable. 

global  PLDATABXS  PLCDATA 

info= [1 , 1 ; 8 , 1 ; 4 , 1 ; 2 , 1 ; 16 , 1 ; 128 , 1 ; 64 , 1 ; 32 , 1 ; 1 , 2 ; 8 , 2 ; 4 , 2 ; 2 , 2 ; . . . 
16,2;32,2;64,2;128,2] ; 


for  i=l:16 

if  get (PLDATABXS (i,l) , 'Value' ) ==1 

vn  =  get (PLDATABXS (i, 2) , 'String' ) ; 
if  isempty(vn) 

disp( [get (PLDATABXS (i,l) , 'String' ) . . . 

'  not  assigned.  No  variable  name  given.']) 

else 

code  = 

min (1 , bitand(info (i, 1) , double ( PLCDATA ( info (i, 2 ) : 2 : end) ) ) ) ; 
assignin ( ' base ' , vn, code) ; 

end 

end 
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end 


%  New  file  begins  here  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
function  error  =  pldcheckvalue 
%  function  error  =  pldcheckvalue 

%  Checks  the  value  currently  in  the  Value  edit  box  for  range  validity 
global  ACTIONH  WHATH  VALUER 

action  =  get (ACTIONH, 'Value' ) ; 
what  =  get (WHATH, 'Value' ) ; 
value  =  get (VALUER, 'String' ) ; 
error  =  0; 

switch  action 
case  1,  %  Action  is  Set 

switch  what 

case  {1,7,13,19},  %  Poly,  Octal  data  between  1  and  2^33-1 

X  =  base2dec (value, 8) ; 

if  ((x  >  2^33-1)  I  (x  <  1)| any ( find (value  >  '  7  '  ) ) ) 
turnred; 
error  =  1; 
else 

turnblack; 

end 

case  {2,3,8,9,14,15,20,21},  %  Octal  data  between  0  and  2'^32™1 

X  =  base2dec (value, 8 ) ; 

if  ( (x  >  4294967295) I (x  <  0) |any(find(value  >  '7'))) 
turnred; 
error  =  1 ; 
else 

turnblack; 

end 

case  {4,10,16,22},  %  Should  be  decimal  data  between  0  and  2^32-1 

X  =  str2num (value) ; 
if  ( (x  >  4294967295) | (x  <  0) ) 
turnred; 
error  =  1 ; 
else 

turnblack; 

end 

case  {5,11,17,23},  %  Should  be  decimal  data  between  1  and  32 

X  =  str2num (value) ; 
if  ((X  >  32)  I  (X  <  D) 
turnred; 
error  =  1 ; 
else 

turnblack; 

end 

case  {6,12,18,24,25},  %  Should  be  binary  data  between  0  and  255 

X  =  bin2dec (value) ; 
if  ( (X  >  255) I (X  <  0) ) 
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turnred; 
error  =  1 ; 
else 

turnblack; 

end 


end 

case  5,  %  Action  is  Start  Collect 

X  =  str2num (value) ; 

if  ( (x  >  31000) I (x  <  1) )  %  We  can  only  collect  up  to  about 

turnred;  %  31000  samples 

error  =  1 ; 
else 

turnblack; 

end 

end 


function  turnred 
global  VALUER 

set (VALUER, ' ForegroundColor ’ , ' red' ) ; 

function  turnblack 
global  VALUER 

set (VALUER, 'ForegroundColor' , 'black' ) ; 


%  New  file  begins  here  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
function  pldclose 
%  function  pldclose 

%  Prompts  the  use  to  save  the  PL  if  not  currently  saved. 

%  Closes  window  after  response  is  processed. 

global  PLSAVED 

if  (PLSAVED==0) 

button  =  questdlg ( ' The  current  process  list  has  not  been  saved.  Are 
you  sure  you  want  to  exit? ' , . . . 

' Save  before  exit? ' , ' Save ' , ' Exit ’ , ' Cancel ' , ' Cancel ' ) ; 
if  strcmp (button, ' Save ' ) 
pi save 

elseif  strcmp (button, ' Cancel ' ) 
return 

end 

end 

clear  global  PLSAVED  WRENSTR  ACTIONSTR  WRATSETSTR  WRATINTSTR 
clear  global  WRATLOADSTR  WHATCOLLECTSTR  LISTR  WRENR  ACTIONR  BASER 
clear  global  WRATR  VALUER  PLNAME  PLCOMMENT  PLEDIT  PLUNDOR  PLSAVED 

delete (get ( 0 , ' CurrentFigure ' ) ) 


%  New  file  begins  here  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
function  pliadd (newstring,  targetindex) 
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%  function  pliadd (newstring,  targetindex) 

%  Adds  a  new  Process  List  Item  to  the  Process  List. 

%  If  targetindex  is  not  specified,  the  current  list  index  is  used. 

global  LISTH  PLEDIT  PLSAVED 

oldstring  =  get (LISTH, ’ String ') ;  %  Get  the  current  list 

if  (nargin<2) 

if  (PLEDIT==1)  %  Is  this  the  result  of  an  edit? 
index  =  get (LISTH, 'Value' ) ; 

set (LISTH, ' String ' , strvcat (oldstring (1 : index-1, : ) ,newstring,  . . . 

oldstring (index+1 : end, : ) ) ) ; 

PLEDIT=0; 

else 

%  Does  this  entry  already  exist? 

if  any (strmatch(newstring(l;min(32,end) ) , oldstring) ) 
button  =  questdlg(... 

'A  similar  PLI  already  exists.  Do  you  want  to  add  it  again?' , . . - 
’ Add  again? ’ , ' Yes ' , ' No ' , ' No ' ) ; 
if  strcmp (button, ' No ' ) 
return 

end 

end 

if  isempty (oldstring) 
dest  =  [  ] ; 
else 

dest  =  max (strmatch (newstring (1 : 6 ), oldstring (:, 1 : 6 ))) ; 

end 

if  isempty (dest ) 

%  Make  the  new  Process  List 

newstring  =  strvcat (oldstring, newstring) ; 

set (LISTH, 'String' , newstring,  , . . 

'Value',  size (newstring, 1 )) ;  %  Establish  the  new  list 

else 

set (LISTH, ' String' , strvcat (oldstring(l :dest, :),... 

newstring,  oldstring (dest+1 : end, : ) ) , 'Value ' , dest+1) ; 

end 

end 

else 

set (LISTH, ' String ' , strvcat (oldstring ( 1 : target index-1 ,:),... 
newstring,  oldstring (targetindex: end, : ) ) ) ; 

end 

PLSAVED  =  0; 


%  New  file  begins  here  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
function  plibupdate (when,  action,  what,  value) 

%  function  plibupdate (when ,  action,  what,  value) 

%  Updates  the  PLIB  values  and  lists.  If  when,  action, 

%  what,  and  value  are  supplied  then  sets  PLIB  to  those 
%  values.  Otherwise,  retrieves  values  from  PLIB. 

global  WHENSTR  ACTIONSTR  WHATSETSTR  WHATINTSTR  WHATLOADSTR 
global  WHATCOLLECTSTR 

global  WHENH  ACTIONH  WHATH  VALUEH  BASEH  PLEDIT 
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if  (nargin>0) 

set(WHENH, ’Value' ,when) ; 
set(ACTIONH, ’Value’ , action) ; 
set(WHATH, 'Value' ,what) ; 
set (VALUER, 'String' , value) ; 
else 

when  =  get (WHENH, 'Value ') ;  %  Get  the  values  of  the  PLIB  objects 

action  =  get (ACTIONH, ’ Value ') ; 
what  =  get (WRATH, 'Value' ) ; 
value  =  get (VALUER, 'String' ) ; 

end 

PLEDIT  =  0; 

set (VALUER, ' ForegroundColor ' , 'black' ) ; 
switch  action 
case  1,  %  Set 

set (WRATH, 'String' ,WHATSETSTR,  'Visible' , ' on ' ) ; 

if  any(what==[6  12  18  24]) 

set (VALUER, 'Visible' , ‘ on ' , 'Enable' , 'inactive' ,  ... 

' ButtonDownFcn ' , ' setctltool  create' ) ; 

else 

set (VALUER, 'Visible' , 'on' , 'Enable' , 'on' ,  ... 

' ButtonDownFcn ',’’); 

end 

case  2 ,  %  Load 

if  (get (WRATH, 'Value' ) >7) 
set (WRATH , ’ Value ' , 1 ) ; 

end 

set (WRATH, 'String' , WHATLOADSTR,  'Visible' , 'on' ) ; 
set (VALUER, 'Visible' , 'off ) ; 
case  {3,4},  %  Enable__Int  and  Disable_Int 

if  (get (WRATH, 'Value' ) >16) 
set (WRATH, ' Value ' , 1 ) ; 

end 

set (WRATH, 'String' ,WHATINTSTR  , 'Visible' , ' on ’ ) ; 
set (VALUER, 'Visible' , 'off ) ; 
case  5,  %  Start_Collect 

if  (get (WRATH, 'Value' ) >3) 
set (WRATH, 'Value' ,1) ; 

end 

set (WRATH, 'String' , WHATCOLLECTSTR, 'Visible' ,’on'); 
set (BASER, 'String' , 'Dec' ) ; 
set (VALUER, 'Visible' , ' on ' , 'Enable' , 'on' ) ; 
case  6,  %  Stop_Collect 

set (WRATH, 'String' , WHATCOLLECTSTR, 'Visible' , 'on' ) ; 
set (VALUER, 'Visible' , 'off ) ; 

end 

if  action==l  %  If  Set  is  the  action  display  correct  base 
switch  get (WRATH, 'Value' ) 
case  {1,2,3,7,8,9,13,14,15,19,20,21} , 
set (BASER, ' String ' , ' Octal ' ) ; 
case  {4,5,10,11,16,17,22,23}, 
set (BASER, 'String' , 'Dec' ) ; 
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case  {6,12,18,24,25}, 

set (BASER, ' String ' , ' Binary ' ) ; 

end 

end 


%  New  file  begins  here  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
function  plidel (index) 

%  f  unc  t  i  on  p  1  i  de { i  ndex ) 

%  Deletes  an  Item  from  the  Process  List 
%  If  index  is  not  supplied,  uses  current  Value 

global  LISTH  PLUNDOH  PLEDIT  PLSAVED 

if  (nargin==0) 

index=get (LISTH, 'Value' ) ; 

end 

oldstring  =  get (LISTH, ' String ') ;  %  Get  the  current  list 

if  -isempty (oldstring) 

deistring  =  oldstring(index,:); 

uimenu (PLUNDOH, 'Label' , deistring, 'Callback' ,  ... 

[ 'pliadd( ’ ' '  deistring 

' delete ( findobj ( ’ 'Label' ' , ' ' '  deistring  '''))']); 

end 

newstring  =  strvcat (oldstring (1 : index-1 , :) , oldstring (index+1 : end, : ) ) ; 
set (LISTH, ' Value ' ,min (max (1 , size (newstring, 1) ) , index) ) ; 
set (LISTH, ' String ', newstring) ;  %  Establish  the  new  list 

PLEDIT  =  0; 

PLSAVED  =  0; 


%  New  file  begins  here  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
function  pliedit ( index) 

%  function  pliedit ( index) 

%  Sets  up  the  Process  List  Item  Builder  to  edit  the  Process 
%  List  Item  at  index.  If  index  is  not  supplied,  the  current 
%  Value  is  used. 

global  WHENSTR  ACTIONSTR  WHATSETSTR  WHATINTSTR  WHATLOADSTR 
global  WHATCOLLECTSTR 
global  LISTH  PLEDIT 

if  (nargin==0) 

index=get (LISTH, 'Value' ) ; 

end 

currentbox  =  get (LISTH, ' String ') ;  %  Get  the  current  list 

currentline  =  currentbox ( index, :) ; 

[token,  currentline] =strtok (currentline) ; 
when  =  strmatch (token, WHENSTR); 
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[token,  currentline] =strtok (currentline) ; 
action  =  strinatch (token, ACT lONSTR)  ; 
[token,  currentline] =strtok (currentline) ; 
value= [ ] ; 
switch  action 
case  1, 

what  =  strmatch( token, WHATSETSTR) ; 
value  =  strtok (currentline) ; 
case  2, 

what  =  strmatch ( token, WHATLOADSTR) ; 
case  {3,4}, 

what  =  strmatch ( token, WHATINTSTR) ; 
case  5, 

what  =  strmatch ( token, WHATCOLLECTSTR) ; 
value  =  strtok (current line) ; 
case  6, 

what  =  strmatch (token, WHATCOLLECTSTR) ; 

end 

plibupdate (when, action, what , value) ; 

PLEDIT  =  1; 


%  New  file  begins  here  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
function  plimove (whichway) 

%  function  p 1 imo ve ( wh i c hway ) 

%  Moves  the  current  PL I  at  index  up  or  down  one  position, 

%  if  possible. 

global  LISTH  PLSAVED  PLEDIT 

index=get (LISTH, 'Value' ) ; 

oldstring  =  get (LISTH, ' String ') ;  %  Get  the  current  list 

switch  (whichway) 
case  ' up ' , 

if  (index==2) 

newstring  =  strvcat (oldstring (index, : ) ,  ... 

oldstring ( index-1, : ) ,  oldstring ( index+1 : end, : ) ) ; 
set (LISTH, ' String ', newstring) ;  %  Establish  the  new  list 

elseif  (index>2) 

newstring  =  strvcat (oldstring ( 1 : index-2 ,:) ,  oldstring (index, :),. . 

oldstring ( index- 1 , : ) ,  oldstring (index+1 : end, :)); 
set (LISTH, ' String’ , newstring) ;  %  Establish  the  new  list 

end 

%  Move  the  selection  bar  up,  if  possible 
set (LISTH, 'Value ' ,max(l, index- 1) ) ; 

case  ’ down ' , 

maxdown  =  size (oldstring, 1 ) ;  %  How  far  down  can  it  go 

i f  ( index< ( maxdown- 1 ) ) 

news tring=strvcat (oldstring (1 : index-1, :) , oldstring ( index+1 , :) , . . 

oldstring ( index, : ) ,  oldstring ( index+2 : end, :)); 
set (LISTH, ' String' , newstring) ;  %  Establish  the  new  list 
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elseif  (index== (maxdown-1) ) 

newstring=strvcat (oldstring ( 1 : index-1 , :) , oldstring { index+1 , 
olds tring (index, :)); 

set (LISTH, ' String newstring) ;  %  Establish  the  new  list 

end 

%  Move  the  selection  bar  down,  if  possible 
set (LISTH, 'Value' , min (maxdown, index+1 ) ) ; 

end 

PLSAVED  =  0; 

PLEDIT  =  0; 


%  New  file  begins  here  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
function  plinew 
%  function  plinew 

%  Constructs  the  new  Process  List  Item,  string  by  reading 
%  the  values  of  the  Process  List  Item  Builder  and  passes 
%  it  to  addpli.  Checks  the  values  validity  and  aborts  if 
%  it  is  invalid. 

error  =  pldcheckvalue ; 
if  (error  ==  1) 
return 

end 

global  LISTH  WHENH  ACTIONH  WHATH  VALUEH  BASEH 

when  =  get (WHENH, 'Value ') ;  %  Get  PLIB  object  values 

action  =  get (ACTIONH, 'Value ') ; 
what  =  get (WHATH, 'Value' ) ; 
value  =  get (VALUEH, 'String' ) ; 

whenstr  =  get (WHENH, ' String ') ;  %  Get  the  current  list  box  strings 

actionstr  =  get (ACTIONH, ' String ') ; 
whatstr  =  get (WHATH, 'String' ) ; 
base  =  get (BASEH, 'String' ) ; 

switch  action 
case  {1,5} 

newstring  =  sprintf ( ' %-7s  %-13s  %-8s  %lls  %- 6s ', whenstr (when, :) ,  ... 

actionstr (action, :) ,  whatstr (what , :) ,  value,  base) ; 
case  (2, 3, 4, 6}, 

newstring  =  sprintf (' %-7s  %-13s  %~8s ', whenstr (when, :) ,  ... 

actionstr (action, : ) ,  whatstr (what , : ) ) ; 

end 

pi iadd (newstring) ;  %  Put  the  new  PLI  in  the  list 


%  New  file  begins  here  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
function  pi open ( filename) 

%  function  plopen ( filename) 

%  Reads  a  Process  List  from  file  filename. 

%  If  filename  is  not  supplied,  a  dialog  box  prompts  for  it. 
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global  LISTH  PLNAME  PLCOMMENT  PLSAVED 
if  (nargin==0) 

[getplffile,  newpath]  =  uigetf ile { ' * .plf ,  ’Open*); 
if  (getplf f ile==0)  %  Error  occured  or  user  canceled  the  action 

return 

end 

PLNAME  =  [newpath  getplffile] ; 
else 

PLNAME  =  f i 1 ename ; 

end 


fid  =  f open ( PLNAME, 'r' ) ; 
incoming  =  f scanf ( f id, ' %c ’ ) ; 
f close ( fid) ; 

set (LISTH, ’ String ’,  t ],’ Value ', 1 ) ;  %  Reset  the  Process  List% 

[temp,  incoming]  =  strtok (incoming, char (10) ) ; 

[temp,  incoming]  =  strtok (incoming, char (10) ) ; 

PLCOMMENT  =  temp (3 : end); 

newlist  =  []; 

while  --isempty (incoming) 

[partlist,  incoming]  =  strtok (incoming, char (10) ) ; 
newlist  =  strvcat (newlist , partlist) ; 

end 

pliadd (newlist) ; 

set(gcf, 'Name' , [ 'Process  List  Developer  -  '  PLNAME] ) ; 

PLSAVED  =  1; 


%  New  file  begins  here  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
function  plqb2pld 
%  function  plqb2pld 

%  Reads  the  values  from,  the  Quick  Builder  GUI  and  transfers 
%  them  to  the  Process  List  Developer  as  a  Process  List 


[errors , data]  =  plqbhelper( 'validate' ) ; 
if  (errors>0) 
return 

end 


values {1} 
values {2} 
values {3 } 
values {4} 
values {5} 
counte 
countc 


data.polyO; 
data . f illO ; 
data . epochO ; 
data . counterO ; 
data .muxO ; 
data . counteO ; 
data . countc 0 ; 


B-30 


fille  =  data.filleO; 

fillc  =  data.filleO; 

values{6}  = [dec2bin (counte-l , 2 )  dec2bin (countc-1 , 2 )  . . . 

dec2bin(fille-l,2)  dec2bin ( f illc~l , 2 ) ] ; 
what  =  [ ' POLYO  ’ ; ’ FILLO  ’ ; ' EPOCHO  ' ; ' COUNTO  ' ;  ... 

‘MUXO  ';'CTL0  ']; 

base  =  [ 'Octal  ' ; 'Octal  ' ; 'Octal  ' ; 'Dec  ' ; 'Dec  ' ; 'Binary' ] 

if  (get ( f indob j ( ' Tag ' , ' coderl ' ) , ' Value ' ) ==1 ) 

X  =  size (values, 2) ; 
values {x+1}  =  data.polyl; 
values {x+2}  =  data.filll; 
values {x+3}  =  data.epochl; 
values {x+4}  =  data.counterl; 
values {x+ 5}  =  data.muxl; 

counte  =  data . countel ; 

countc  =  data.countcl; 

fille  =  data.fillel; 

fillc  =  data.fillel; 

values{x+6}  = [dec2bin (counte-1 , 2 )  dec2bin (countc-1 , 2 )  . . . 

dec2bin(fille-l,2)  dec2bin ( f illc-1 , 2 ) ] ; 
what  =  [what; ’ POLYl  ' ; ' FILLl  ’ ; ' EPOCHl  ' ; 'COUNTl  ' ;  ... 

' MUXl  ' ; ' CTLl  ' ] ; 

base  =  [base; 'Octal  ' ; 'Octal  ' ; 'Octal  ’ ; 'Dec  ' ;  ... 

' Dec  ' ; ' Binary’ ] ; 

end 

if  (get ( f indobj ( ’ Tag ' , ' coder2 ' ) , 'Value ' ) ==1) 

X  =  size (values , 2 ) ; 
values {x+1}  =  data.poly2; 
values {x+2}  =  data.fill2; 
values {x+3}  =  data.epoch2; 
values {x+4}  =  data . counter2 ; 
values {x+5}  =  data.mux2; 

counte  =  data . counte2 ; 

countc  =  data.countc2; 

fille  =  data.fille2; 

fillc  =  data.fillc2; 

values{x+6}  = [dec2bin (counte-1 , 2 )  dec2bin (countc-1 , 2 )  . . . 

dec2bin ( f ille-1 , 2 )  dec2bin ( f illc-1 , 2 ) ] ; 
what  =  [what; ' POLY2  ' ; ' FILL2  ' ; ' EPOCH2  ' ; ’ COUNT2  ' ;  ... 

’ MUX2  ' ; ' CTL2  ' ] ; 

base  =  [base; 'Octal  '; 'Octal  '; 'Octal  ' ; ' Dec  ';  ... 

’ Dec  ' ; ' Binary ' ] ; 

end 

if  (get (f indobj ( 'Tag' , 'mixcode' ) , 'Value' )==1) 

X  =  size (values , 2 ) ; 
values{x+l}  =  [data . coitibinerV  .  .  . 
data . combinerG . . . 
data . combiners .  .  . 
data . combiner4 . . . 
data . combiner! . . . 
data . combiner2 . . . 
data . combinerl . . . 
data . combinerO ]  ; 
what  =  [what; 'MIXCODE' ] ; 
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base  =  [base; ’Binary' ] ; 

end 

if  isempty ( f indobj ( ' Tag ' , ' pld ' ) ) 
pld 

end 

for  i=l : size (what , 1) 

newstring  =  sprintf { ' %“7s  %-13s  %-8s  %lls  %-6s ' , ' INIT ' ,  ... 

'Set',  what{i,:)  ,  char (values (i) ) ,  base(i,:)); 
pi i add (newstring) ; 

end 


%  New  file  begins  here  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
function  [output , data]  =  plqbhelper (whattodo) 

%  function  plqbhelper (whattodo) 

%  Process  List  Quick  Builder  Helper  functions. 

%  Validates  values,  saves,  and  opens  setup  screens, 
switch  whattodo, 
case  'validate' 

[output , data]  =  goValidate; 
case  'save' 
go Save ; 
case  'open' 
goOpen; 

end 

function  [errors , data]  =  goValidate 
errors  =  0 ; 

data  =  readplqbvalues ; 
i f  checkOctalPoly ( data . polyO ) 

set (f indobj ( 'Tag' , 'polyOtext' ) , ' ForegroundColor ' , 'red' ) ; 
errors  =  1; 
else 

set ( f indobj ( ' Tag ' , ' polyOtext ' ) , ' ForegroundColor ' , ' black ' ) 

end 

if  checkOctalPoly (data .polyl) 

set ( f indobj ( ' Tag ' , ' polyltext ' ) , ' ForegroundColor ' , ' red ' ) ; 
errors  =  1 ; 
else 

set (f indobj ( 'Tag' , 'polyltext' ) , 'ForegroundColor' , 'black' ) ; 

end 

if  checkOctalPoly (data. poly2 ) 

set (f indobj ( 'Tag' , 'poly2text’ ) , 'ForegroundColor' , 'red' ) ; 
errors  =  1 ; 
else 

set ( f indobj ( ' Tag ' , ' poly2 text ' ) , ' ForegroundColor ' , ’ black ' ) ; 

end 

if  checkOctalFill (data. fillO) 

set ( f indobj ( ' Tag ' , ' f illOtext ' ) , ' ForegroundColor ' , ' red' ) ; 
errors  =  1; 
else 

set ( f indobj ( ' Tag ' , ' f illOtext ' ) , ' ForegroundColor ' , ' black ' ) ; 

end 

if  checkOctalFill (data. filll) 
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set ( f indobj ( ' Tag ’ , ’ f illltext ‘ ' ForegroundColor ' , ' red’ ) ; 
errors  =  1 ; 
else 

set ( f indobj ( ' Tag ’ , ‘ f illltext ' ) , ' ForegroundColor ' , ' black ’ ) ; 

end 

if  checkOctalFill (data. fill2) 

set ( f indobj ( ’ Tag ' , ' f ill2text ' ) , ' ForegroundColor ’ , ’ red ‘ ) ; 
errors  =  1; 
else 

set ( f indobj ( ’ Tag ' , ' f ill2text ' ) , ' ForegroundColor ' , ’ black ' ) ; 

end 

if  checkOctalEpoch (data . epochO ) 

set ( f indobj ( ' Tag ' , ’ epochOtext ' ) , ’ ForegroundColor ’ , ' red ' ) ; 
errors  =  1; 
else 

set (f indobj ( ’Tag' , 'epochOtext' ) , 'ForegroundColor’ , 'black' ) ; 

end 

if  checkOctalEpoch (data . epochl) 

set ( f indobj ( ' Tag ' , ' epochl text ' ) , ' ForegroundColor ' , ' red ’ ) ; 
errors  =  1; 
else 

set ( f indobj ( ' Tag ' , ' epochltext ' ) , ' ForegroundColor ' , ' black ’ ) ; 

end 

i f  checkOctalEpoch ( data . epoch2 ) 

set ( f indobj ( ' Tag ’ , ' epoch2 text ' ) , ' ForegroundColor ' , ' red ' ) ; 
errors  =  1 ; 
else 

set (f indobj ( 'Tag' , 'epoch2text' ) , 'ForegroundColor' , 'black' ) ; 

end 

if  checkDecCount (data. count erO) 

set ( f indobj ( ' Tag ' , ' counterOtext ' ) , ' ForegroundColor ' , ' red ' ) ; 
errors  =  1 ; 
else 

set (f indobj ( 'Tag' , 'counterOtext' ) , 'ForegroundColor' , 'black' ) ; 

end 

if  checkDecCount (data . count erl ) 

set (f indobj ( 'Tag' , ' counterltext ' ) , 'ForegroundColor' , 'red' ) ; 
errors  =  1 ; 
else 

set ( f indobj ( ' Tag ' , ' counterltext ' ) , ' ForegroundColor ' , ' black ' ) ; 

end 

i f  checkDecCount ( data . count er 2 ) 

set ( f indobj ( ' Tag ' , ' counter2text ’ ) , ' ForegroundColor ' , ' red' ) ; 
errors  =  1; 
else 

set ( f indobj ( ' Tag ' , ' counter2 text ' ) , ' ForegroundColor ' , ' black ' ) ; 

end 

if  checkDecMux(data.muxO) 

set  (f  indobj  (  'Tag'  ,  '  phase__muxOtext '  )  ,  'ForegroundColor'  ,  'red' )  ; 
errors  =  1; 
else 

set ( f indobj ( ' Tag ' , ' phase_muxOtext ' ) , ' ForegroundColor ' , ' black ' ) 

end 

i f  checkDecMux ( data . muxl ) 

set ( f indobj ( ’ Tag ' , ' phase_muxltext ' ) , ' ForegroundColor ' , ' red ' ) ; 
errors  =  1 ; 
else 


B-33 


set(findobj ( ’Tag’ , ’ phase_muxltext ’ ) , ' ForegroundColor ’ , 'black' ) ; 

end 

if  checkDecMux (data .inux2 ) 

set (f indob j ( ’Tag’ , ' phase_mux2text ' ) , 'ForegroundColor' , 'red' ) ; 
errors  =  1 ; 
else 

set (f indob j ( 'Tag' , ’ phase_inux2text ' ) , 'ForegroundColor' , 'black' ) ; 

end 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

function  result  =  checkOctalFill (data) 

result  =  (  (base2dec  (data,  8)  <1)  |  (base2dec  (data,  8)  >  (2'^32-l)  )  |  ... 

any (find (data  >  '7'))); 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
function  result  =  checkOctalPoly (data) 

result  =  (  (base2dec  (data,  8)  <1)  I  (base2dec  (data,  8 )  >  (2'^33-l)  )  I  ... 
any ( find (data  >  '7'))); 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

function  result  =  checkOctalEpoch (data) 

result  =  (  (base2dec  (data,  8)  >  (2'^32-l)  )  I  any  (  f  ind(data  >  '7'))); 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
function  result  =  checkDecCount (data) 

result  =  ( (str2num(data) <0) [ (str2num(data) > (2^32-1) ) ) ; 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
function  result  =  checkDecMux (data) 
result  =  ( (str2num(data)<l) I (str2num(data) >32) ) ; 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
function  goSave 

[newqbffile,  newpath]  =  uiputf ile ( ' * . qbf .mat ' ,  'Save  As ' ) ; 
if  newqbffile  ~=  0 

data  =  readplqbvalues ; 

eval ( [ ' save  ' ,  newpath,  newqbffile,  '  data’ ] ) ; 

end 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
function  goOpen 

[qbffile,  qbfpath]  =  uigetf ile ( ' * . qbf .mat ' ,  'Load'); 
if  qbffile  ~=  0 

eval ( [ ' load  ' ,  qbfpath,  qbffile] ) ; 
setplqbvalues (data) ; 

end 


%  New  file  begins  here  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
function  plreset 
%  function  plreset 
%  Resets  the  Process  List, 
global  LISTH  PLNAME  PLCOMMENT  PLSAVED 

button  =  questdlg ( ' Are  you  sure  you  want  to  reset  the  Process 
List? ' , . . . 

'Reset? ' , 'Yes ' , 'Cancel ' , 'Cancel ' ) ; 
if  strcmp (button, 'Yes') 

set (LISTH, ' String ',[],' Value ' , 1) ; 

PLNAME  =  [ ] ; 

PLCOMMENT  =  []; 

set (gcf, ' Name ',' Process  List  Developer'); 
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PLSAVED  =  1; 


end 


%  New  file  begins  here  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
function  pi save 
%  function  plsave 
%  Saves  the  Process  List 
global  LISTH  PLNAME  PLCOMMENT  PLSAVED 

if  is empty (PLNAME) 

PLNAME  =  ’*.plf ' ; 

end 

[newplffile,  newpath]  =  uiputfile ( PLNAME,  'Save  As ' ) ; 

if  (newplffile==0)  %  Error  occured  or  user  canceled  the  action 
return 

end 

PLNAME  =  [newpath,  newplffile] ; 
pi  =  get (LISTH, 'String' ) ; 

prompt={ ’ Enter  a  comment  for  this  configuration'}; 
title= ' Comment ' ; 
lineNo=5 ; 

temp=char (inputdlg (prompt , title, lineNo, {PLCOMMENT}) ) ; 
if  --isempty ( temp) 

PLCOMMENT=temp; 

end 

fid  =  fopen( PLNAME, 'w'); 

fprintf ( f id, ’ %%  Process  List  File  created  by  PLD  v0.5\n’); 
fprintf(fid,  ' %%  %s\n ', PLCOMMENT ') ; 
for  i=l : size (pi , 1 ) 

fprintf (fid,  *  %s\n'  ,pl (i,  : ) )  ; 

end 

f close ( fid) ; 

set (gcf, 'Name' ,[' Process  List  Developer  -  '  PLNAME]); 

PLSAVED  =  1; 


%  New  file  begins  here  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
function  info  =  readplqbvalues 

%  Reads  the  values  from,  the  Process  List  Quick  Builder  GUI 

info.polyO  =get (findobj ( 'Tag' , 'polyO ' ) , ' String' ) ; 
info . f illO  =get (findobj ( ' Tag ' ,  ' f illO  * ) ,  ' String ' ) ; 

info . epochO  =get (findobj ( ' Tag ' , ' epochO ’ ) , ' String ' ) ; 
info . counterO  -get (findobj ( ' Tag ' , ' counterO ' ) , ' String ' ) ; 
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info .muxO 
info . counteO 
info . countcO 
info . f illeO 
info. fillcO 


=get ( f indobj ( ' Tag ’ , ' phase_muxO ’ ) / ' String ' ) ; 
=get(findobj { 'Tag' , ' counterOepoch ' ) , 'Value' ) ; 
=get ( f indobj ( ' Tag ' ,  ' counterOcount ’ ) , ‘ Value ' ) ; 
=get ( f indobj ( ' Tag ' , ' f illOepoch ' ) , ’ Value ' ) ; 
=get ( f indobj ( *  Tag ’ , ’ f illOcount ' ) , ' Value ' ) ; 


info . coderlchk 
info .polyl 
info . f illl 
info . epochl 
info . counterl 
info .muxl 
info . countel 
info . countcl 
info . f illel 
info . filial 


=get ( f indobj ( ' Tag ' , 
=get ( f indobj ( ' Tag ' , 
=get ( f indobj ( ' Tag ' , 
=get ( f indobj ( ' Tag '  , 
=get ( f indobj ( ' Tag ' , 
=get ( f indobj ( ' Tag ' , 
=get ( f indobj ( ’ Tag ' , 
=get ( f indobj ( ' Tag ' , 
=get ( f indobj ( ' Tag ' , 
=get ( f indobj ( ' Tag '  , 


'  coderl ' ) ,  ' Value ' ) ; 

'polyl' ) , 'String' ) ; 

'filll' ) , 'String' ) ; 

'  epochl ’ ) ,  ' String ' ) ; 

'  counterl ' ) ,  ' String ' ) ; 
'phase_inuxl '  )  ,  '  String*  )  ; 

'  counterlepoch ' ) ,  ' Value ' ) ; 
'  counterlcount ' ) ,  *  Value ' ) ; 
'  f illlepoch ' ) ,  ' Value ' ) ; 

'  f illlcount ' ) ,  ' Value ' ) ; 


info 

info 

info 

info 

info 

info 

info 

info 

info 

info 


coder2chk 

poly2 

fill2 

epoch2 

counter2 

mux  2 

counte2 

countc2 

fille2 

fillc2 


=get ( f indobj 
=get ( f indobj 
=get ( f indobj 
=get ( f indobj 
=get ( f indobj 
=get ( f indobj 
=get ( f indobj 
=get ( f indobj 
=get ( f indobj 
=get ( f indobj 


(  '  Tag '  , 
(  '  Tag  '  , 
(  ‘  Tag  '  , 
(  ’  Tag  '  , 
(  ‘  Tag '  , 
(  ’  Tag  '  , 
{  '  Tag  ’  , 
(  '  Tag  '  , 
(  ‘  Tag  ’  , 
(  '  Tag '  , 


’  coder2 ’ ) ,  ' Value ' ) ; 

'poly2 ' ) , 'String' ) ; 
'fill2') , 'String') ; 

'  epoch2 ' ) ,  ' String ’ ) ; 

'  counter2 ' ) ,  ' String ' ) ; 
'phase_mux2  * ) ,  ' String' ) ; 

'  counter2epoch' ) ,  'Value' ) ; 
'  counter2count ' ) ,  ' Value ' ) ; 
’  fill2epoch' ) ,  'Value ' ) ; 

’  f ill2count ' ) ,  ’ Value ' ) ; 


info 

info 

info 

info 

info 

info 

info 

info 

info 


.mixcodechk= 
.  combinerV  = 
.  combinerG  = 
.combiners  = 
.  combiner4  = 
.  combiners  = 
.  combiner2  = 
.  combinerl  = 
.  combinerO  = 


get ( f indobj ( ' Tag '  , 
get ( f indobj ( ' Tag ' 
get ( f indobj ( ' Tag ' 
get ( f indobj ( ' Tag ' 
get ( f indobj ( ' Tag ' 
get ( f indobj ( ' Tag ' 
get ( f indob j { ' Tag ' 
get ( f indobj { ’ Tag ' 
get ( f indobj ( ' Tag ' 


'mixcode' ) , 'Value' ) 
,  ' combinerV 
,  ' combinerG 
, ' combiners 
, ' combiner4 
, ' combiners 
,  '  coinbiner2 
, ’ combinerl 
, ' combinerO 


) 

') 
■  ) 
') 
') 
') 
') 


’  String' ) 
'  String ' ) 
'  String' ) 
'  String ' ) 
'  String ' ) 
'  String' ) 
'  String ' ) 
'String' ) 


%  New  file  begins  here  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
function  setplqbvalues ( info) 

%  Sets  all  of  the  values  on  the  Process  List  Quick  Builder  GUI 

set ( f indobj ( ' Tag ' , ' polyO ’ ) , ' String ' , info . polyO ) ; 

set ( f indobj ( ' Tag ' , ' f illO ' ) , ' String ' , info . f illO) ; 

set ( f indobj ( ' Tag ' , ' epochO ' ) , ' String ' , info . epochO ) ; 

set ( f indobj ( ' Tag ' , ' counterO ' ) , ’ String ’ , info . counterO ) ; 

set  ( f  indobj  (  '  Tag '  ,  '  phase__muxO  '  )  ,  '  String  '  ,  inf  o  .muxO )  ; 

set ( f indobj ( ' Tag ' , ’ counterOepoch ' ) , ’ Value ' , info . counteO ) ; 

set ( f indobj ( ' Tag ' , ' counterOcount ' ) , ' Value ' , info . countcO ) ; 

set (f indobj { 'Tag' , ' f illOepoch' ) , 'Value' , info. filleO) ; 

set ( f indobj ( ' Tag ' , ' f illOcount ' ) , 'Value ’ , info . f illcO ) ; 

set ( f indobj ( ' Tag ' , ' coderl ’ ) , ' Value ' , info . coderlchk) ; 
set ( f indobj ( ' Tag ' , ' polyl ' ) , ' String ’ , info . polyl ) ; 
set ( f indobj ( ' Tag ' , ’ filll ' ) , ’ String ’ , info . filll) ; 
set ( f indobj ( ' Tag ' , ' epochl ' ) , ’ String ' , info . epochl) ; 
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set ( f indobj ( ' Tag  * ,  ' counterl ' ) ,  ’ String ' , info . counterl ) ; 
set  (f indobj  (  ’Tag'  ,  'phase_inuxl '  )  ,  '  String’  ,  info.muxl)  ; 
set { f indobj ( ’ Tag ' , ' counterlepoch ’ ) , ' Value ’ , info . countel ) 
set ( f indobj ( ’ Tag ' , ' counterlcount ' ) , ’ Value ' , info . countcl ) 
set (f indobj ( 'Tag' , ’ filllepoch' ) , 'Value' , info. fillel) ; 
set ( f indobj ( ' Tag ’ , ’ f illlcount ' ) , 'Value ' , info . filial) ; 

set ( f indobj ( ' Tag ’ , ’ coder2 ' ) , ‘ Value ' , info . coder2chk) ; 
set ( f indobj { ' Tag ’ , ' poly2 ' ) , ' String ’ , info .poly2 ) ; 
set ( f indobj ( ' Tag ' , ' f ill2 ' ) , ' String ’ , info . f ill2 ) ; 
set ( f indobj ( ' Tag ’ , ' epoch2 ' ) , ' String ’ , info . epoch2 ) ; 
set ( f indobj { ' Tag ’ , ’ counter 2 ' ) , ’ String ' , info . counter 2 ) ; 
set ( f indobj ( ’ Tag ' , ' phase_mux2 ’ ) , ’ String ' , info .mux2 ) ; 
set ( f indobj ( ' Tag ’ , ’ counter2epoch ' ) , ' Value ' , info . counte2 ) 
set ( f indobj ( ' Tag ' , ' counter2count ‘ ' Value ' , info . countc2 ) 
set ( f indobj ( ’ Tag ' , ' f ill2epoch ' ) , 'Value ' , info . f ille2 ) ; 
set ( f indobj ( ’ Tag ‘ , ' f ill2count ' ) , 'Value ' , info . f illc2 ) ; 

set ( f indobj ( ' Tag ’ , ' mixcode ' ) , ' Value ’ , info , mixcodechk) ; 
set  ( f  indobj  (  '  Tag  ’  ,  '  coitibinerV  '  )  ,  '  String  '  ,  info  .  coinbinerV )  ; 
set ( f indobj ( ' Tag ’ , ' combiners ' ) , ' String ' , info . combiners ) ; 
set ( f indobj ( ' Tag ’ , ’ combiners ‘ ' String ’ , info . combiners ) ; 
set ( f indobj ( ' Tag ' , ’ combiner4 ' ) , ' String ’ , info . combiner4 ) ; 
set ( f indobj ( ' Tag ’ , ’ combiners ' ) , ' String ' , info . combiners ) ; 
set ( f indobj ( ' Tag ' , ’ combiner2 ' ) , ' String ' , info . combiner2 ) ; 
set ( f indobj ( ’ Tag ’ , ' combinerl ' ) , ' String ’ , info . combinerl ) ; 
set ( f indobj ( ’ Tag ' , ’ combinerO ' ) , ’ String ’ , info . combinerO ) ; 
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APPENDIX  C 


MICROCONTROLLER  CODE 


This  Appendix  contains  microcontroller  “resident”  code  in  Siemens  80C166  assembly  language. 
This  code  was  assembled  using  Rigel  Corporation’s  Reads  166  Compiler/Asserabler  3.00. 


collectCount  equ 

R5 

collectStop 

equ 

R4 

; - SFRs  - 

--- 

MDL 

defr 

OFEOEh 

MDH 

defr 

OFEOCh 

DP3 

defr 

0FFC6h 

SOCON 

defr 

OFFBOh 

SOBG 

defr 

0FEB4h 

SORBUF 

defr 

0FEB2h 

SOTBUF 

defr 

OFEBOh 

SOTIC 

defr 

0FF6Ch 

SORIC 

defr 

0FF6Eh 

SOEIC 

defr 

0FF70h 

ZEROS 

defr 

OFFlCh 

ONES 

defr 

OFFlEh 

; - bits  - 

— 

SOTIR 

defb 

SOTIC. 7 

SORIR 

defb 

SORIC. 7 

/ 

;  --  reset 

and  hardware  trap  vectors  -- 

/ 

org 

0 

jmpa 

cc_UC , 

^startup 

org 

28h 

jmpa 

cc_UC , 

_startup 

; - Startup  code - 


/ 

org 

00200h 

_s  tar tup : 

mov 

SYSCON,  #0008Dh 

nop 

mov 

SYSCON,  #004CDh 

nop 

jmps 

0,  nextl 

nextl : 

mov 

DPPO,  #0 

mov 

DPPl,  #1 

mov 

DPP2,  #2 

mov 

DPP3 ,  #3 

mov 

PSW,  ZEROS 

bclr 

NMI 

mov 

CP,  #OFCOOh 

mov 

SP,  #0FC00h 

mov 

STKOV,  ttOFAOOh 
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mov 

STKUN, 

#0FC00h 

bset 

P3 .13 

bset 

DP3 . 13 

bset 

DP3 .10 

mov 

SOCON, 

#8011h 

mov 

SOBG, 

#lFh 

mov 

SOTIC, 

#0 

mov 

SORIC, 

#0 

mov 

SOEIC, 

#0 

DISWDT 

EINIT 


;  -  insert  your  startup  code  here  - 


calla  cc__UC,  main 

. - QYid  of  startup - 

main  : 

mov  DP2,  #00000h 
mov  DPS,  #024FFh 
mov  PS,  #0EFFFh 

mov  RO ,  #02222h 

mov  CCMO ,  RO 

mov  CCMl ,  RO 

mov  CCM2 ,  RO 

mov  CCMS,  RO 

bclr  PS_0 
bset  PS_0 
bset  lEN 

mov  RS ,  #0F9FEh  ;  RS  contains  the  output  address 

mov  R6,  #0FFC0h  ;  R6  contains  the  P2  address 

mov  Rl,  #plist2 

add  Rl,  #2 

mov  collectStart ,  Rl 

mov  collectCount ,  Rl 

mov  Rl,  #000CBh 

mov  plist2,  Rl 

calla  cc_UC,  id 

_002S  : 


calla 

cc_UC,  waitGetChar 

cmp 

RO,  #49h 

;  ‘I’ 

jmpr 

cc_EQ,  _0025 

cmp 

RO,  #05Sh 

;  'S’ 

jmpr 

cc_EQ,  _0026 

cmp 

RO,  #058h 

;  'X’ 

jmpr 

cc_EQ,  _0027 

cmp 

RO,  #045h 

;  ’E’ 

jmpr 

cc_EQ,  _0028 

cmp 

RO,  #04Sh 

;  ’C’ 

jmpr 

cc_EQ,  _0029 

cmp 

RO,  #044h 

;  ’D' 

jmpr 

cc_EQ,  _00S0 

cmp 

RO,  #046h 

;  'F' 

jmpr 

cc_EQ,  _00S1 

cmp 

RO,  #052h 

;  'R’ 

jmpr 

cc_EQ,  _00S2 
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jmpr  cc_UC,  _0033 


^0025  : 

calla  cc_UC,  id 
jmpr  cc_UC,  _0023 
_0026  : 

calla  cc_UC,  getHexInt 
calla  cc_UC,  send 
jmpr  cc_UC,  _0023 
_0027  : 

calla  cc_UC,  stopAll 
jmpr  cc_UC,  _0023 
^0028  : 

calla  cc_UC,  execute 
jmpr  cc_UC,  _0023 
_0029  : 

calla  cc_UC,  getHexInt 
calla  cc_UC,  collectData 
jmpr  cc_UC,  _0023 
^0030  : 

calla  cc_UC,  getHexInt 
calla  cc_UC,  download 
jmpr  cc_UC,  _0023 
_0031  : 

calla  cc_UC,  stopCollect 
jmpr  cc_UC,  _0023 
_0032  : 

calla  cc_UC,  reset 
jmpr  cc_UC,  _0023 
_0033  : 

mov  RO,  #S_0000 
calla  cc_UC,  SendStr 

jmpr  cc_UC,  _0023 
; - main  ends - 


SendHexInt  :  ;  Input  should  be  in  RO 


push  R1 

push  RO 

push  RO 

push  RO 

push  RO 

mov  Rl,  #0Ch 

0062  : 

shr  RO ,  R1 

and  RO,  #0Fh 

cmp  RO ,  #  OAh 

jmpr  cc_SLT,  _0061 
add  RO,  #00007h 
0061  : 

add  RO,  #00030h 

calla  cc_UC,  SendChar 

pop  RO 

sub  Rl,  #4 

cmp  Rl,  #0 

jmpr  cc_SGE,  _0062 
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pop  R1  ;  Note:  RO  has  already  been  popped 
ret 

. - End  SendHexInt - 

SendChar  :  ;  Input  should  be  in  RO 

movb  RHO,  #0 
mov  SOTBUF,  RO 


_0075  : 

jnb 

mov 

ret 

; - End 

SendStr  : 

push 

push 

mov 


SOTIR,  _0075 
SOTIC,  #00000h 


SendChar 
;  Input 
R1 
RO 

Rl,  RO 


(add  of  string)  should  be  in  RO 


_0080  : 

movb  RLO ,  [R1+] 

cmp  RO ,  ZEROS 

jmpr  cc_EQ,  _0081 

calla  cc_UC,  SendChar 

jmpr  cc_UC,  _0080 

_0081  : 

pop  RO 

pop  R1 

ret 

. - End  SendStr - 

getHexInt  :  ;  Output  is  in  RO 


• 

push 

push 

R2 

R1 

mov 

R2, 

#0 

0089 

mov 

Rl, 

#0Ch 

calla 

cc_ 

UC,  waitGetChar 

cmp 

RO, 

#65 

jmpr 

cc_ 

ULT,  _0082 

0082 

sub 

RO, 

#7 

sub 

RO, 

#48 

shl 

RO, 

Rl 

add 

R2, 

RO 

sub 

Rl, 

#4 

cmp 

Rl, 

#0 

jmpr 

cc_ 

SGE,  _0089 

mov 

pop 

pop 

ret 

RO, 

Rl 

R2 

R2 

. - End  getHexInt - 

waitGetChar  :  ;  Output  is  in  RO 

_0091  : 

jnb  SORIR,  _0091 
bclr  SORIR 
mov  SORIC,  #00000h 
mov  RO,  SORBUF 
ret 

; -  End  waitGetChar  - 

;  -  insert  interrupt  vector  - 
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pushlc 


org 

0040h 

jmpa 

cc_UC,  isrCLKO 

poplc 

isrCLKO  : 

mov 

[collectCount+] ,  [R6] 

cmp 

collectCount,  collectStop 

jmpr 

cc_UGT,  _0098 

reti 

_0098  : 

mov 

CCOIC,  #00000h 

mov 

RO,  #S_0001 

calla 

cc_UC,  SendStr 

sub 

collectCount,  #2 

reti 

. - End  isrCLKO - 

;  insert  interrupt  vector  - 

pushlc 


org 

0050h 

jmpa 

cc_UC,  isrCLKl 

poplc 

isrCLKl  : 

mov 

[collectCount+] ,  [R6] 

cmp 

collectCount,  collectStop 

jmpr 

cc_UGT,  _0102 

reti 

_0102  : 

mov 

CC4IC,  #00000h 

mov 

RO,  #S_0001 

calla 

cc_UC,  SendStr 

sub 

collectCount,  #2 

reti 

. - End  isrCLKl - 

;  -  insert  interrupt  vector  - 

pushlc 
org  006 Oh 

jmpa  cc_UC,  isrCLK2 
poplc 
isrCLK2  : 

mov  [collectCount+] ,  [R6] 

cmp  collectCount ,  collectStop 
jmpr  cc_UGT,  _0106 
reti 
_0106  : 

mov  CC8IC,  #00000h 
mov  RO,  #S_0001 
cal la  cc_UC,  SendStr 
sub  collectCount,  #2 
reti 

. - End  isrCLK2 - 

send  :  ;  Input  (#  of  samples  to  send)  is  in  RO 

push  RO 

mov  RO,  #S_0004 
calla  cc_UC,  SendStr 
pop  R1 
shl  Rl,  #1 

mov  R2,  collectStart 
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add 

Rl,  R2 

cmp 

Rl,  collectCount 

jmpr 

cc_ULT,  _0110 

mov 

Rl,  collectCount 

_0110 

mov 

RO,  Rl 

sub 

RO,  R2 

calla 

cc_UC,  SendHexInt 

_0108 

: 

cmp 

R2,  Rl 

jmpr 

cc_UGE,  _0109 

movb 

RLO,  [R2+] 

calla 

cc_UC,  SendChar 

jmpr 

cc_UC,  _0108 

_0109 

: 

mov 

RO,  #00Ah 

calla 

cc_UC,  SendChar 

ret 

7 

-  End  ! 

send - 

reset 

: 

calla 

cc_UC,  StopAll 

mov 

RO,  #plist2 

add 

RO,  #2 

mov 

collectStart ,  RO 

mov 

collectCount,  RO 

mov 

collectStop,  RO 

mov 

RO,  #000CBh 

mov 

plist2,  RO 

mov 

RO,  #S_0007 

calla 

cc_UC,  SendStr 

ret 

; - 

-  End  ; 

reset  - 

stopAll  : 

mov 

RO,  #00000h 

mov 

CCOIC,  RO 

mov 

CCIIC,  RO 

mov 

CC2IC,  RO 

mov 

CC3IC,  RO 

mov 

CC4IC,  RO 

mov 

CC5IC,  RO 

mov 

CC6IC,  RO 

mov 

CC7IC,  RO 

mov 

CC8IC,  RO 

mov 

CC9IC,  RO 

mov 

CCIOIC,  RO 

mov 

CCllIC,  RO 

mov 

CC12IC,  RO 

mov 

CC13IC,  RO 

mov 

CC14IC,  RO 

mov 

CC15IC,  RO 

mov 

RO,  #S_0005 

calla 

cc_UC,  SendStr 

ret 

/ 

"  iLncL  scopAxr 

stopCollect 

: 

mov 

RO,  #S_0006 

calla 

cc_UC,  SendStr 

mov  collectStop,  collectCount 

mov  RO,  collectCount 

mov  Rl,  collectStart 

sub  RO ,  R1 

cal la  cc_UC,  SendHexInt 

mov  RO,  #0000Ah 

cal la  cc_UC,  SendChar 

ret 

; -  End  stopCollect  - 

download  :  ;  #  bytes  to  get  comes  in  RO 

push  RO 

mov  RO,  #S_0008 
calla  cc_UC,  SendStr 
pop  R1 

mov  R2 ,  #plist 
add  R1 ,  R2 
_0116  : 

cmp  R2 ,  R1 
jmpr  cc_UGE,  _0117 
calla  cc_UC,  waitGetChar 
movb  [R2]  ,  RLO 
add  R2,  #1 
jmpr  cc_UC,  _0116 
_0117  : 

add  R2,  #1  ;  Need  to  insure  that 

and  R2,  #0FFFEh  ;  collecStart  is  even 

mov  collectStart,  R2 

mov  RO ,  R2 

calla  cc_UC,  SendHexInt 

mov  RO,  tOOOOAh 

calla  cc_UC,  SendChar 

ret 

; - End  download - 

execute  : 

mov  RO,  #S_0009 
calla  cc_UC,  SendStr 
jmpr  cc_UC,  init 
ret 

; - End  - 

collectData  :  ;  #  of  samples  to  take  comes  in  RO 

push  RO 

mov  RO,  #S_0010 
calla  cc_UC,  SendStr 
pop  RO 

mov  Rl,  #00002h 

mul  RO ,  Rl 

calla  cc_UC,  waitGetChar 
mov  R8 ,  RO 

sub  R8,  #30h 

mov  R7 ,  MDL 


; -  R7  contains  TWICE  the  number  of  samples  to  take 
and  R8  contains  which  clock  to  use 
collect jumpPoint : 

mov  RO,  collectStart 

add  R7,  RO 

mov  collectStop,  R7 
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mov  collectCount ,  collectStart 

cmp  R8,  #00h 

jmpr  cc_NE,  _0121 

mov  CCOIC,  #00077h 

ret 

_0121  : 

cmp  R8,  #01h 
jmpr  cc_NE,  _0122 
mov  CC4IC,  #00077h 
ret 

_0122  : 

cmp  R8,  #02h 
jmpr  cc_NE,  _0124 
mov  CC8IC,  #00077h 

_0124  : 

ret 

. - End  collectData - 

id  : 

mov  RO,  #S_0011 
calla  cc_UC,  SendStr 
ret 

. - End  id - 


.  -  string  constants 


even 

S_0000: 

db 

" INV" , 

10,  0 

even 

S^OOOl: 

db 

"FINC" , 

10,  0 

even 

S_0002: 

db 

"FINC” , 

10,  0 

even 

S_0003  : 

db 

"FINC" , 

10,  0 

even 

S_0004: 

db 

" SEND" , 

0 

even 

S_0005: 

db 

" STPA" , 

10,  0 

even 

S_0006: 

db 

" STPC" , 

10,  0 

even 

S_0007; 

db 

"RST" , 

10,  0 

even 

S_0008: 

db 

"DOWN" , 

10,  0 

even 

S„0009: 

db 

" EXEC" , 

10,  0 

even 

S^OOIO: 

db 

"CLCT" , 

10,  0 

even 

S_0011: 

db 

"BK  vl. 

0  Loaded 

;  -  end  string  constants 

even 


collectStart : 
ret 

init : 

mov  R9 ,  #plist 
mov  RIO,  #00040h 

mov  Rll,  #000EAh 
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initloop: 

mov  [RIO] ,  Rll 

add  RIO,  #2 

mov  [RIO] ,  [R9+] 

cmpi2  RIO,  #07Eh 

jmpr  cc_ULT,  initloop 

jmpr  cc_UC,  plist2 

plist : 


dw 

944 

Address 

of 

isrCLKO 

dsw 

3h  (966) 

Address 

of 

a  reti 

dw 

968 

Address 

of 

isrCLKl 

dsw 

3h  (966) 

Address 

of 

a  reti 

dw 

992 

Address 

of 

isrCLK2 

dsw 

7h  (966) 

Address 

of 

a  reti 

plist2 : 

ret 

.  -  include  files  - 

#include  <sfrl66 jk. inc> 

;  -  end  of  generated  code 


C-9 


APPENDIX  D 


“USER”  CODE 

This  Appendix  contains  more  explanation  of  the  Siemens  80C166  microcontroller  code  contained 
in  the  Code  Fragments  and  Code  Segments  of  the  “User”  code. 


D.l  Setting  Up  for  a  Register  Write 

If  a  Code  Segment,  excluding  the  DSflT  Segment,  writes  to  (sets)  any  of  the  Stanford 
Telecom  STEL-1032’s  registers,  then  the  following  code  is  added  to  that  Code  Segment. 

Prefixed: 

Machine  Language  (in  bytes)  Assembly  Language 

236  249  push  R9 

230  249  daddl  daddh  mov  R9,  §dataaddress 

Appended; 

252  249  pop  R9 

The  symbols  daddl  and  daddh  stand  for  the  low  and  high  byte,  respectively,  of  the 
beginning  of  the  Code  Segment’s  data  (dataaddress).  The  data  starts  at  the  word  address 
following  the  Code  Segment’s  Return  from  Interrupt  (reti). 

The  INIT  Code  Segment  begins  with 

230  249  daddl  daddh  mov  R9,  #dataaddress 

where  daddl  and  daddh  are  the  same  as  above. 


D.2  Setting  the  32-bit  Registers 

The  “Set”  Code  Fragment  for  32-bit  registers  is 


232 

57 

mov 

[R3],  [R9+] 

232 

57 

mov 

[R3],  [R9+] 

232 

57 

mov 

[R3],  [R9+] 

232 

57 

mov 

[R3],  [R9+] 

The  corresponding  data  is  added  to  the  Code  Fragment’s  data  in  the  format 
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address  datal  address+\  data! 

address+2  dataS  address+3  data4 

where  address  is  the  beginning  address  (first  byte)  of  the  STEL-1032  register  being  set,  datal  is 
the  least  significant  byte  of  the  32-bit  data,  address+\  is  the  second  byte  of  the  STEL-1032 
register  being  set,  datal  is  the  next  to  least  significant  byte,  and  so  forth. 


D.3  Setting  the  8-bit  Registers 

The  “Set”  Code  Fragment  for  8-bit  registers  is 

232  57  mov  [R3],  [R9+] 

The  corresponding  data  is  added  to  the  Code  Fragment’s  data  in  the  format 
address  data 

where  address  is  the  address  of  the  STEL-1032  register  being  set  and  data  is  the  new 
register  value. 


D.4  Loading  the  Coders 


Loading  Codero  is  accomplished  by 


30  226 

31  226 


bclr 

bset 


P3_l 

P3_l 


Loading  Coder]  is  accomplished  by 

46  226 

47  226 


bclr 

bset 


P3_2 
P3  2 


Loading  Coder2  is  accomplished  by 

62  226 

63  226 


bclr 

bset 


P3_3 
P3  3 


Loading  Codero  and  Coder]  is  accomplished  by 

102  226  249  255  and  P3,  #11 11 1001b 

118  226  6  0  or  P3,  #000001 10b 
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Loading  Codero  and  Coder2  is  accomplished  by 


102  226  245  255  and  P3,  #11 110101b 

118  226  10  0  or  P3,  #00001010b 


Loading  Codeti  and  Coder2  is  accomplished  by 

102  226  243  255  and  P3,  #11 11001  lb 

118  226  12  0  or  P3,  #00001 100b 


Loading  all  three  Coders  is  accomplished  by 

102  226  241  255  and  P3,  #11 110001b 

118  226  14  0  or  P3,  #00001 110b 


D.5  Enabling  the  Interrupts 

The  following  code  enables  an  interrupt. 

230  a:  y  0  mov  CCzIC,  #y 

where  x  is  the  address  (188-203)  of  the  respective  interrupt’s  control  register,  y  is  the  interrupt 
priority  and  sets  the  interrupt  enable  bit,  and  z  is  the  corresponding  Compare/Capture  Interrupt 
Control  Register  (0-15). 


D.6  Disabling  the  Interrupts 


The  following  code  disables  an  interrupt  by  clearing  the  interrupt  enable  bit  and  setting 
the  priority  to  zero. 

230  X  0  0  mov  CCzIC,  #0 

where  x  and  z  are  the  same  as  above. 


D.7  Stopping  Data  Collection 

To  stop  the  collection  of  data,  the  corresponding  Clock’s  interrupt  is  disabled  with 
230  w  0  0  mov  CCzIC,  #0 

where  w  is  either  188, 192,  or  196  for  Clocko,  Clocki,  or  Clock2,  respectively,  and  z  is  the  same  as 
above. 
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D.8  Starting  Data  Collection 

Data  collection  is  started  using 


230 

247 

vail 

valh 

mov 

R7,  #value 

230 

248 

clock 

0 

mov 

R8,  #clock 

202 

0 

30 

5 

calla 

cc_UC,  #51Eh 

where  vail  and  valh  are  the  low  and  high  byte,  respectively,  of  twice  the  number  of  samples  to  be 
taken  (value)  and  clock  is  which  clock  to  use  as  the  trigger  (0,  1,  or  2). 

D.9  End  of  Each  Code  Segment 

Each  Code  Segment  for  an  interrupt  ends  with 

251  136  reti 

followed  by  the  data  for  any  register  writes. 

The  INIT  Code  Segment  ends  with 

203  0  ret 

followed  by  the  data  for  any  register  writes. 
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APPENDIX  E 


USER’S  MANUAL 

This  User’s  Manual  will  help  the  user  with  the  initial  system  setup  and  getting  those  first 
codes  produced.  It  outlines  the  computer  requirements  for  running  the  software,  how  to  connect 
the  hardware,  how  to  build  a  Process  List,  and  how  to  use  the  data  collection  capability. 

E.l  Hardware/Software  Requirements 

A  Personal  Computer  (PC)  running  Microsoft®  Windows®95  with  The  Mathworks® 
MATLAB®  v5.0,  or  later,  installed  is  required  to  run  the  Graphical  User  Interface  (GUI) 
software.  At  this  time,  the  software  has  not  been  tested  on  a  Windows®98  platform.  An  available 
RS-232  Serial  Interface  is  required  to  connect  the  PC  to  the  Kos/Brendle  Code  Generator  Box 
(Kode  Box,  for  short).  The  appropriate  cable  to  connect  the  PC’s  RS-232  port  to  the  Kode  Box’s 
female  DB-9  connector  is  also  required. 

All  of  the  Kode  Box  MATLAB®  software  must  be  located  in  a  directory  included  in  the 
MATLAB®  search  path.  The  correct  COM  port  must  be  specified  in  the  “opencomm.m”  file.  In 
the  “COMMH  =  portcomCOPEN’,  ‘COMx’,  65000,  15000)”  line,  change  the  “COMx”  to  the 
appropriate  port,  either  COMl,  COM2,  COM3,  or  COM4  (default  setting  is  COM2).  To 
determine  the  proper  setting,  consult  your  Windows®  manual  to  find  the  appropriate  available 
port. 

For  the  purposes  of  this  demonstration,  a  signal  generator,  oscilloscope,  and  appropriate 
BNC  patch  cables  are  helpful. 

E.2  Hardware  Connections 

Connecting  the  Kode  Box  to  the  PC  is  accomplished  by  connecting  the  Kode  Box’s  RS- 
232  port,  found  on  the  rear  panel  of  the  box,  to  the  PC’s  RS-232  port  with  the  appropriate  cable. 
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Connect  the  signal  generator  output  to  the  CLKO  input  on  the  front  of  the  Kode  Box.  Connect  the 
CODED  output  to  the  oscilloscope’s  channel  one  input.  Finally,  connect  the  EPOCHO  output  to 
the  oscilloscope’s  channel  two  input. 

E.3  Generating  a  Code 

At  this  point,  the  computer  should  be  powered  up  with  MATLAB®  running.  To  start 
developing  a  Process  List,  which  will  eventually  control  the  Stanford  Telecom  STEL-1032  within 
the  Kode  Box,  enter  “plqb”  at  the  MATLAB®  prompt.  The  Process  List  Quick  Builder  (PLQB) 
GUI  should  appear. 

Every  register  of  the  STEL-1032  is  shown  on  this  one  GUI.  Enter  “23”  in  the  edit  box 
located  to  the  right  of  “Polynomial  in  Octal”  in  the  upper  left  comer  of  the  GUI.  By  doing  so,  the 

user  is  specifying  the  generator  polynomial  G  =  l+  .  Next,  enter  “7”  in  the  “Initial  Fill 

in  Octal”  edit  box  and  “2”  in  the  “Epoch  register”  edit  box. 

For  demonstration  purposes,  enter  “33”  in  the  “Phase  Mux”  edit  box.  Now,  press  the 
Validate  button.  The  “Phase  Mux”  text  will  turn  red,  indicating  an  incorrect  value  has  been 
entered.  Upon  pressing  the  Validate  button,  all  register  values  are  range  checked  and  the  labels  of 
any  offenders  are  changed  to  red.  Change  the  “Phase  Mux”  value  to  “1”  and  press  the  Validate 
button  again.  “Phase  Mux”  will  return  to  black.  Be  sure  that  the  check  boxes  next  to  the 
“Coderl”  and  “Coder2”  labels  are  unchecked.  Place  a  check  next  to  the  “Mixcode”  label. 

All  values  on  the  PLQB  GUI  can  be  saved  and  recalled  using  appropriate  options  under 
the  Workspace  menu  bar  item.  If  you  would  like,  test  this  feature  by  saving  the  values  you  just 
entered. 

Pressing  the  Export  to  PLD  button  causes  the  Process  List  Developer  (PLD)  GUI  to  open 
and  values  entered  in  the  PLQB  edit  boxes  are  automatically  transferred  to  the  PLD  in  the  form  of 
a  Process  List  (PL).  Press  the  Export  to  PLD  button  now. 
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The  PLD  allows  the  user  access  to  all  capabilities  of  the  Kode  Box  microcontroller 
system.  The  user  can  develop,  edit,  store,  and  recall  PLs  capable  of  fully  controlling  the  STEL- 
1032.  By  constructing  Interrupt  Service  Routines  (ISRs),  the  user  can  control  the  STEL-1032  in 
ways  not  possible  with  a  stand-alone  STEL-1032.  The  user  can  optionally  bypass  the  PLQB  and 
start  with  the  PLD. 

By  “mistake,”  the  Mixcode  configuration  was  transferred  to  the  PL  from  the  PLQB.  To 
remove  that  Process  List  Item  (PLI),  single  left  click  on  that  line  in  the  PL  and  press  the  Delete 
button  to  the  right.  Now,  select  the  Undo  menu  item  and  you  will  see  that  the  deleted  PLI  is 
available  for  reinsertion. 

Now,  to  construct  an  ISR,  select  the  following  items  in  the  Process  List  Item  Builder 
(PLIB)  at  the  bottom  of  the  PLD  screen.  Under  “When,”  select  INIT.  Select  Enable_Int  in  the 
“Action”  list  and  select  EPOCHO  in  the  “What”  list.  Press  the  Add  button.  The  new  PLI  will 
appear  in  the  PL  above.  This  line  enables  the  EPOCHO  interrupt. 

Before  a  Coder  can  begin  to  generate  codes,  the  Coder  must  be  loaded  with  an  initial  fill 
(starting  phase).  Thus,  PLIs  need  to  be  added  to  cause  this  action.  Select  EMIT  in  the  “When” 
list.  Load  in  the  “Action”  list,  and  CODERO  in  the  “What”  list.  Press  the  Add  button  to  insert  the 
new  PLI. 

Next,  select  EPOCHO  in  the  “When”  list,  Load  in  the  “Action”  list,  and  “CODERO”  in 
the  “What”  list.  Press  the  Add  button.  This  PLI  instructs  the  microcontroller  to  reload  Codero 
with  the  contents  of  the  INITo  register  upon  an  EPOCHo  pulse.  Although  the  STEL-1032  can 
perform  this  operation  with  built  in  control  mechanisms,  we  will  use  the  microcontroller  for 
demonstration  purposes. 

The  PL  is  now  ready  to  be  used.  Press  the  Done  button.  The  Process  List  Communicator 
(PLC)  will  now  open.  The  PLC  is  used  to  communicate  with  the  Kode  Box.  The  first  necessary 
step  is  to  bootload  the  Kode  Box.  If  the  Kode  Box  is  not  already  turned  on,  turn  it  on  now.  To 
accomplish  the  bootload,  press  the  hardware  Reset  button  on  the  front  of  the  Kode  Box  and  then 
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press  the  Establish  Comm  button.  If  the  bootload  is  successfully  accomplished,  the  text 
“Communication  Established”  will  appear  and  the  Establish  Comm  button  will  be  grayed  out. 
The  Export  PL  button  also  becomes  available. 

Press  the  Export  PL  button  to  compile  your  PL  and  download  it  to  the  microcontroller. 
Upon  a  successful  download,  the  text  “PL  Export  Successful”  will  appear  and  the  remaining 
pushbuttons  will  become  available. 

At  this  time,  make  sure  that  the  “Man/Auto”  switch  on  the  front  of  the  Kode  Box  is  in  the 
“Auto”  position  and  the  “Run/Stop”  switch  is  in  the  “Run”  position.  Set  the  signal  generator  to 
produce  a  100  kHz  TTL  level  clock  pulse. 

To  execute  your  PL  and  begin  generating  of  a  code,  press  the  Execute  PL  button.  With 
the  oscilloscope  set  to  trigger  on  the  second  channel  (EPOCHO),  adjust  the  controls  as  necessary 
to  obtain  a  nice  display  of  the  code  being  generated.  In  this  demonstration,  the  code  should 
repeat  every  12  clock  cycles. 

E.4  Output  Sampling 

Now  that  the  Kode  Box  is  producing  a  code,  the  signals  can  be  collected,  retrieved,  and 
assigned  as  variables  in  the  MATLAB®  workspace.  To  do  this,  place  the  value  “1000”  (1000 
samples  to  be  collected)  in  the  edit  box  above  the  Start  Collection  button.  Ensure  that  “CLKO”  is 
selected  in  the  list  box  next  to  the  edit  box.  Press  the  Start  Collection  button.  The  text  “Data 
Collection  Complete”  will  soon  appear  under  the  button. 

Press  the  Retrieve  Data  button  to  upload  the  collected  data  to  the  PLC.  Next,  put  check 
marks  in  the  boxes  next  to  the  “CODEO”  and  “EPOCHO”  labels.  In  the  edit  box  next  to  the 
“CODEO”  label,  enter  “codeO.”  In  the  edit  box  next  to  the  “EPOCHO”  label,  enter  “epochO.” 
Finally,  pressing  the  Export  Data  button  assigns  these  signals  as  designated  variables  in  the 
MATLAB®  base  workspace. 
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E.5  Do’s  and  Don’ts 


The  following  is  a  list  of  helpful  “do’s  and  don’ts.” 

Do: 

•  Do  place  the  “Man/Auto”  switch  in  the  “Auto”  position 

•  Do  place  the  “Run/Stop”  switch  in  the  “Run”  position 

•  Do  load  the  Coders  intended  to  produce  a  code  by  some  means 

•  Do  enable  the  used  interrupts  by  some  means 

Don’t: 

•  Do  not  enable  an  interrupt  for  which  there  are  no  associated  Process  List  Items 

•  Do  not  use  the  clock  selected  for  data  collection  for  any  other  interrupt  purposes 
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